<script>on mouseUpanswer file "ComNiftyﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "APPL"if it is not empty then put getFldrPath(it) into meend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>75</top>
<right>348</right>
<bottom>91</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>postPath</name>
<script>on mouseUpget selectDir("Postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③")if it <> empty then put it into meend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>131</top>
<right>348</right>
<bottom>147</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>EditorPath</name>
<script>on mouseUpanswer file "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃ [ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "APPL"if it is not empty thenput it into meput pathToFile(it) into cd fld "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ烏ﾃ映ﾃ隠ﾃ運"put line 2 of MtGetFInfo(it) into line 2 of meput "ﾃｨ竕 ﾃﾂｵﾃﾂｮﾃｫ窶愿ﾃｸﾃ竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put "cd btn id 33,bg btn id 20 of cd 1 of bg id 2577,bg btn id 40 of cd 1 of bg id 3798,bg btn id 34 of cd 1 of bg id 4249,bg btn id 32 of cd 1 of bg id 52768" into btnListgetBtnICON it,btnListhide msgend ifend mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>103</top>
<right>348</right>
<bottom>119</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>LogPath</name>
<script>on mouseUpget selectDir("Receiveﾃ⑿ﾃ嘉ｧﾃ碓ﾃ⒀ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③")if it <> empty then put it into meend mouseUp</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>43</top>
<right>437</right>
<bottom>68</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24004</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput cd fld "cNifPath" into FldrPathif the optionKey is down and the shiftKey is down then get "T:TEXT,cNdb,pref"else get "T:TEXT"if FldrPath <> empty thendelFilesInFldr FldrPath,it,"ComNiftyﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"end ifend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>71</top>
<right>437</right>
<bottom>96</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24004</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput cd fld "postPath" into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,,"postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"end ifend mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>99</top>
<right>437</right>
<bottom>124</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24004</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput cd fld "logPath" into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,"T:TEXT","Logﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"end ifend mouseUp</script>
<script>on mouseUpif the optionKey is down thengo to stack "CNIF_MM-DataCopy" in a new windowelse if the shiftKey is down thenput myPath() into myStackpush cardlock screengo to stack "CNIF_MM-DataCopy"if the result <> empty then exit mouseUpsend "mouseUp myStack,true" to cd btn id 1pop cardelseanswer file "ﾃ嘘ﾃ鋭ﾃ [ﾃ･竕･ﾃﾃ" & quote & "CNIF_MacroMaker 0.4 ﾃ⑶ 1.4" & quote & "ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type STAK or TEXTif it is empty then exit mouseUpput it into oldStackput MtGetFInfo(oldStack) into fInfoput myPath() into newStackpush cardlock screengo to stack "CNIF_MM-DataCopy"if the result <> empty then exit mouseUpif line 1 of fInfo is "TEXT" thensend "mouseUp newStack,oldStack,true" to cd btn id 2pop cardelsesend "mouseUp oldStack,newStack" to cd fld id 3end ifend ifend mouseUp</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>47</top>
<right>393</right>
<bottom>63</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 1end mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>75</top>
<right>393</right>
<bottom>91</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 2end mouseUp</script>
</part>
<part>
<id>38</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>103</top>
<right>393</right>
<bottom>119</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 10end mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>131</top>
<right>393</right>
<bottom>147</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 3end mouseUp</script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>159</top>
<right>348</right>
<bottom>175</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>NasuPath</name>
<script>on mouseUpanswer file "ﾃ｢ﾃｷﾃｩqﾃqﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "APPL"if it is not empty thenput it into meput pathToFile(it) into cd fld "ﾃ｢ﾃｷﾃｩqﾃq"put line 2 of MtGetFInfo(it) into line 2 of meput "ﾃｨ竕 ﾃﾂｵﾃﾂｮﾃｫ窶愿ﾃｸﾃ竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put "cd btn id 42,cd btn id 9 of cd id 55714" into btnListgetBtnICON it,btnListhide msgend ifend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>159</top>
<right>393</right>
<bottom>175</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 40end mouseUp</script>
<script>on mouseUpanswer file "ﾃｱﾃﾃｱ@ﾃﾃε永ﾃ韻ﾃ液ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "APPL"if it is not empty thenput it into meput pathToFile(it) into cd fld "ﾃｱﾃﾃｱ@ﾃﾃε永ﾃ韻ﾃ液"put line 2 of MtGetFInfo(it) into line 2 of meput "ﾃｨ竕 ﾃﾂｵﾃﾂｮﾃｫ窶愿ﾃｸﾃ竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put "cd btn id 45" into btnListgetBtnICON it,btnListhide msgend ifend mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>215</top>
<right>393</right>
<bottom>231</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 43end mouseUp</script>
<script>on mouseUpvisual effect dissolve fast to inversevisual effect dissolve fastif there is a cd " CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ " thengo to cd " CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ "else if there is a cd "CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ" thengo to cd "CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ"else if there is a cd " CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ" thengo to cd " CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ窶ｦﾃﾂｬﾃﾂ｢ﾃﾆ"end ifend mouseUp</script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>187</top>
<right>348</right>
<bottom>203</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>nifJPath</name>
<script>on mouseUpanswer file "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "TEXT"if it is not empty then put getFldrPath(it) into meend mouseUp</script>
</part>
<part>
<id>52</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>354</left>
<top>187</top>
<right>393</right>
<bottom>203</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｫIﾃｫï｣ｿ...</name>
<script>on mouseUpsend "mouseUp" to cd fld id 51end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text>ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ</text>
</content>
<content>
<layer>card</layer>
<id>47</id>
<text>ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ烏ﾃ映ﾃ隠ﾃ運</text>
</content>
<content>
<layer>card</layer>
<id>48</id>
<text>ﾃ｢ﾃｷﾃｩqﾃq</text>
</content>
<content>
<layer>card</layer>
<id>49</id>
<text>ﾃｱﾃﾃｱ@ﾃﾃε永ﾃ韻ﾃ液</text>
</content>
<name>ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ</name>
<script>on controlKey whichKeyif whichKey = 3 then -- C "ComNiftyﾃ液ﾃ羽ﾃ嘉｣ﾃ雲"sendBtn "cd btn id 30"else if whichKey = 16 then -- P "Postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲"sendBtn "cd btn id 31"else if whichKey = 12 then -- L "Logﾃ液ﾃ羽ﾃ嘉｣ﾃ雲"sendBtn "cd btn id 32"else if whichKey = 15 then -- O "ﾃ烏ﾃ映ﾃ隠ﾃ運ﾃ [ﾃ｣Nﾃｬﾃ"sendBtn "cd btn id 33"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput "1,2,3,10,40,43,51" into listrepeat with r = 1 to the number of items of listput empty into cd fld id (item r of list)end repeatput "cd btn id 33,bg btn id 20 of cd 1 of bg id 2577,bg btn id 40 of cd 1 of bg id 3798,bg btn id 34 of cd 1 of bg id 4249,bg btn id 32 of cd 1 of bg id 52768" into btnListsetBtnICON 26000,btnListsetBtnICON 0,"cd btn id 42,cd btn id 9 of cd id 55714"setBtnICON 0,"cd btn id 45"put "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ烏ﾃ映ﾃ隠ﾃ運" into cd fld "ﾃ影ﾃ鵜ﾃ厩ﾃ曳ﾃ烏ﾃ映ﾃ隠ﾃ運"put "ﾃ｢ﾃｷﾃｩqﾃq" into cd fld "ﾃ｢ﾃｷﾃｩqﾃq"put "ﾃｱﾃﾃｱ@ﾃﾃε永ﾃ韻ﾃ液" into cd fld "ﾃｱﾃﾃｱ@ﾃﾃε永ﾃ韻ﾃ液"end clearData</script>
</card>
card_13803.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldif me is not a integer then put 12 into meend closeField</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>96</left>
<top>41</top>
<right>196</right>
<bottom>58</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>UserID</name>
<script>on closeFielddataCheckend closeFieldon exitFielddataCheckend exitFieldon returnInFielddataCheckend returnInFieldon dataCheckget meif checkID(it) is false thenbeepanswer "ID ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃｭﾂｺﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"select Text of cd fld id 27elseput upperLower(it) into meend ifend dataCheck</script>
<script>on mouseDownUxPop "ﾃｧﾃ湘ﾃﾃﾂｻﾃﾂ｢ﾃ③;ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃï｣ｿﾃｨoﾃ竏妥③;ﾃｧﾃ古ｨﾃｺﾃﾂｵﾃﾆ津ﾂｩﾃﾃﾃｧﾃ湘ﾃ暗③;ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃﾂｵﾃﾆ津ﾂｩﾃﾃﾃｧﾃ湘ﾃ暗③;ﾃｭﾂｫﾃ｢ﾂ｡ﾃ竏妥ﾃ暗③","TW",,the topLeft of meend mouseDown</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>121</top>
<right>380</right>
<bottom>139</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>379</left>
<top>121</top>
<right>435</right>
<bottom>141</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name></name>
<script>on mouseDownUxPop "ﾃｨﾂ｡ﾃ竏妥③;ﾃﾂｪﾃﾃε窶ｹﾃ窶ｹﾃ③;ﾃ･竕･ﾃ窶ｦﾃｱïｬづ竏妥③","TW",,the topLeft of meend mouseDown</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>197</left>
<top>290</top>
<right>247</right>
<bottom>310</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>menuFont</name>
<script>on mouseDownput menu "FONT" into listUxPop list,"TW",,the topLeft of meend mouseDown</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>290</top>
<right>143</right>
<bottom>308</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>355</left>
<top>98</top>
<right>505</right>
<bottom>169</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>mainMenuList</name>
<script></script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>386</left>
<top>289</top>
<right>476</right>
<bottom>309</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>mainMenuﾃｧXﾃｪV</name>
<script>on mouseUpset lockMessages to truelock screenput (the optionKey is down) into opput empty into mlistput "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ,ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ,ﾃﾂｪﾃﾃεｫﾂｺ,ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ" into submcdListpush cardgo to first bgrepeat with r = 1 to the number of backgroundsset the cursor to busyput the short name of this bg into bgNameif bgName is in "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｬﾂｸﾃ｢ﾃ,ﾃｬVﾃ｣Cﾃｳ¥ﾃｯﾃ,ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ [ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｫﾃｳﾃｪM,ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ" then put "-" & return after mlistput bgName after mlistif the hilite of cd btn id 18 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" or bgName is in submcdList thenif op then updateSubMenuput bg fld "subMenuList" into cdListput "," & Switch(cdList) after mlistend ifput return after mlistgo to next bgend repeatif the hilite of cd btn id 18 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" thenput mlist into cd fld "mainMenuList2" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"elseput mlist into cd fld "mainMenuList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end ifpop cardend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>22</left>
<top>265</top>
<right>197</right>
<bottom>285</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉 ﾃ韻ﾃ嘉ｬﾃ嘉 ﾃ泳ﾃ嘉姪 [ﾃｫSﾃ､Kﾃｫwﾃｯ¥ﾃｩﾂｶ</name>
<script>on mouseUpif the hilite of me then send mouseUp to cd btn "mainMenuﾃｧXﾃｪV" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end mouseUp</script>
<script>on mouseUpset the cantModify of this stack to trueset the userModify to trueput switch(cd fld "forumList") into cd fld id 39shListFld trueend mouseUp</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>28</top>
<right>505</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpbeepend mouseUp</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>107</left>
<top>53</top>
<right>409</right>
<bottom>290</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>53</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>110</left>
<top>56</top>
<right>406</right>
<bottom>287</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>38</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>111</left>
<top>57</top>
<right>405</right>
<bottom>286</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>122</left>
<top>106</top>
<right>270</right>
<bottom>276</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseLeavelock screenif the short id of this cd is 13803 thenget (the selectedLine of cd fld id 39 <> empty)set the enabled of cd btn id 40 to itset the enabled of cd btn id 41 to itend ifunlock screenpass mouseLeaveend mouseLeaveon mouseUplock screenget (the selectedLine of cd fld id 39 <> empty)if it and the mouseClick then send "mouseUp" to cd btn id 41set the enabled of cd btn id 40 to itset the enabled of cd btn id 41 to itunlock screenend mouseUp</script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>297</left>
<top>115</top>
<right>377</right>
<bottom>135</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧﾃ古①ﾃｨﾃｺ</name>
<script>on mouseUpget the selectedLine of cd fld id 39if it is empty then beepelsedelete itif last char of cd fld id 39 is return then delete last char of cd fld id 39end ifend mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>297</left>
<top>144</top>
<right>377</right>
<bottom>164</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯﾅ禿①ﾃｧX</name>
<script>on mouseUpif the selectedLine of cd fld id 39 is empty then beepelseput the selectedText of cd fld id 39 into fNameask quote & fName & quote && "ﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥③" with fNameif it <> empty and it <> fName thenset the cursor to watchlock screenput upperLower(it) into the selectedLine of cd fld id 39sort lines of cd fld id 39end ifend ifend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>297</left>
<top>173</top>
<right>377</right>
<bottom>193</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｭﾂｫﾃ①ﾃ｢ﾂ｡</name>
<script>on mouseUpask "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ЖOﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃï｣ｿﾃｮﾂｺﾃ､pﾃｫﾃづｯ竏づｩﾃｶﾃ竕暗ｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put cd fld id 39 into listif it <> empty and MtScanList(list,it,,true) is empty thenset the cursor to watchlock screenput return & upperLower(it) after listsort lines of listput list into cd fld id 39select line 0 of cd fld id 39set the enabled of cd btn id 40 to falseset the enabled of cd btn id 41 to falseend ifend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>293</left>
<top>216</top>
<right>381</right>
<bottom>244</bottom>
</rect>
<style>default</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script>on mouseUpput switch(cd fld id 39) into listsend "mouseUp" to cd btn id 44put list into cd fld "forumList"put empty into cd fld "forumList2"end mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>297</left>
<top>253</top>
<right>377</right>
<bottom>273</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣</name>
<script>on mouseUpset the cantModify of this stack to falseset the userModify to falseend mouseUp</script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpvisual effect dissolve very fastgo to cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"end mouseUp</script>
<script>on closeCardif the visible of cd fld id 39 then send "mouseUp" to cd btn id 44if the visible of cd fld id 39 then shListFld falsepass closeCardend closeCardon suspendStackif the visible of cd fld id 39 then send "mouseUp" to cd btn id 44if the visible of cd fld id 39 then shListFld falsepass suspendStackend suspendStackon enterKeyif the visible of cd fld id 39 and the selectedField is empty then sendBtn "cd btn id 43"else pass enterKeyend enterKeyon returnKeyif the visible of cd fld id 39 and the selectedField is empty then sendBtn "cd btn id 43"else pass returnKeyend returnKeyon keyDown whickKeyif whickKey is "□" and the visible of cd fld id 39 then sendBtn "cd btn id 44"else pass keyDownend keyDownon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screensetTxt "ﾃｭﾂｫﾃ｢ﾂ｡ﾃ竏妥ﾃ暗③",3setTxt "ﾃｨﾂ｡ﾃ竏妥③",5setTxt "Osaka",8put 12 into cd fld "menuFontSize"-- setMenuFont "Osaka",12put "ﾃ t" into cd fld id 21put "* " into cd fld id 22put empty into cd fld id 27put empty into cd fld id 29put empty into cd fld id 35set the hilite of cd btn id 18 to falseset the hilite of cd btn id 20 to falseset the hilite of cd btn id 32 to falseset the hilite of cd btn id 33 to falseset the hilite of cd btn id 49 to falseput 1 into cd fld id 51set the hilite of cd btn id 52 to trueput 70 into cd fld id 56set the hilite of cd btn id 58 to falseend clearDataon setMenuFont CNMmenuFont,fSize-- repeat with r = 1 to the number of bgs-- set the textFont of bg fld "mainMenu" of first cd of bg r to CNMmenuFont-- set the textFont of bg fld "subMenu" of first cd of bg r to CNMmenuFont-- set the textSize of bg fld "mainMenu" of first cd of bg r to fSize-- set the textSize of bg fld "subMenu" of first cd of bg r to fSize-- set the textHeight of bg fld "mainMenu" of first cd of bg r to 16-- set the textHeight of bg fld "subMenu" of first cd of bg r to 16-- end repeatend setMenuFonton shListFld modelock screenput (mode is true) into modeset the visible of cd fld id 38 to modeset the visible of cd fld id 39 to modeput "40,41,42,43,44,47,53,54,55" into lrepeat with r = 1 to the number of items of lset the visible of cd btn id (item r of l) to modeend repeatset the enabled of cd btn id 40 to falseset the enabled of cd btn id 41 to falseend shListFldon scrFldsetScrollFld "cd fld id 39"end scrFld</script>
</card>
card_51661.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the hilite of me thenenable cd btn id 5set the enabled of cd btn id 13 to the hilite of cd btn id 5elsedisable cd btn id 5disable cd btn id 13end ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>42</left>
<top>248</top>
<right>174</right>
<bottom>266</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>176</left>
<top>248</top>
<right>214</right>
<bottom>266</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNif me is not a integer or me < 1 thenbeepanswer "1 ﾃ ﾂｻﾃｨ窶榲ï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put 3 into meselect text of meelseput me into meend ifend checkN</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>217</left>
<top>248</top>
<right>248</right>
<bottom>266</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>45</left>
<top>70</top>
<right>458</right>
<bottom>88</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ邃｢ﾃ u 5. MYFORUMﾃ⑥ﾃｫïｬﾃ｢ﾃ氾 vﾃ雨ﾃ [ﾃ栄ﾃ窶ｦﾃｱ竕･ﾃﾂ｢ﾃｨﾃ催ｧﾃ｡ﾃﾃε窶ｺﾃ③</name>
<script>on mouseUpset the enabled of cd btn id 13 to the hilite of meend mouseUp</script>
<script>on mouseUplock screenget the visible of cd fld id 3set the visible of cd fld id 2 to not itset the visible of cd fld id 3 to not itset the visible of cd fld id 4 to not itset the visible of cd btn id 12 to not itset the visible of cd btn id 7 to not itset the visible of cd btn id 8 to not itend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>22</left>
<top>229</top>
<right>458</right>
<bottom>247</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ､ﾂｻﾃ 窶僭Oﾃ厭ﾃ丑ﾃ嘉ｧﾃ⑿ﾃ嘉｢ﾃ悦ﾃ嘉｣ﾃｪﾃｮﾃ⑦ﾃ㈲ﾃ⒀</name>
<script>-- on mouseUpif the hilite of me thenbeepanswer "ﾃｨﾃ催ｧﾃ｡ﾃ窶ｦﾃﾃ甘ﾂ｡ﾃﾆ津厭ﾃ丑ﾃ嘉ｧﾃ邃｢ﾃｭ窶堙ｩ~ﾃ竏妥ﾃ暗ﾂｱﾃ竏ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥ﾃε竕暗ｨ¥ﾃｯ邃｢ﾃｭﾃｧﾃ 窶敕ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③(^^;)"end ifend mouseUp</script>
<script>on mouseUpvisual effect dissolve very fastgo to card id 23208end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>22</left>
<top>123</top>
<right>458</right>
<bottom>141</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NEWMAILﾃ窶ｦﾃｫﾅ津｢ﾃｻﾃ竏妥ﾃ暗③</name>
<script>-- on mouseUpif the hilite of me thenbeepanswer "ﾃｨﾃ催ｧﾃ｡ﾃ窶ｦﾃﾃ甘ﾂ｡ﾃﾆ津厭ﾃ丑ﾃ嘉ｧﾃ邃｢ﾃｭ窶堙ｩ~ﾃ竏妥ﾃ暗ﾂｱﾃ竏ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥ﾃε竕暗ｨ¥ﾃｯ邃｢ﾃｭﾃｧﾃ 窶敕ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③(^^;)"end ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>ﾃｬﾂｸﾃ｢ﾃ氾嘉 ﾃ泳ﾃ嘉姪 [ﾃｫ窶愿ﾃｸﾃｩﾃｻﾃ､窶</text>
</content>
<content>
<layer>card</layer>
<id>4</id>
<text>ﾃｯb</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>3</text>
</content>
<name>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ</name>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenset the hilite of cd btn id 1 to trueset the hilite of cd btn id 5 to trueset the enabled of cd btn id 5 to trueset the hilite of cd btn id 13 to trueset the enabled of cd btn id 13 to trueset the hilite of cd btn id 15 to trueset the hilite of cd btn id 12 to falseput 3 into cd fld id 3set the hilite of cd btn id 7 to trueset the hilite of cd btn id 8 to trueset the enabled of cd btn id 8 to trueif the visible of cd btn id 12 then send "mouseUp" to cd btn id 9end clearData</script>
</card>
card_37867.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screensetTxt " 5-04. ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬﾃ⑿ﾃ陰ﾃ叡ﾃ益ﾃ嘉｣ﾃ⒀",4set the hilite of cd btn id 6 to trueset the hilite of cd btn id 7 to trueset the enabled of cd btn id 7 to trueset the hilite of cd btn id 13 to trueset the enabled of cd btn id 13 to trueset the hilite of cd btn id 8 to falseset the hilite of cd btn id 9 to trueset the hilite of cd btn id 10 to trueset the hilite of cd btn id 14 to trueend clearData</script>
</card>
card_36350.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpget the selectedText of meif it is empty then exit mouseUpput (the optionKey is down) into opif op then get "ﾃｫSﾃﾆ津ﾃε液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉"if the shiftKey is up thenanswer quote & it & quote && "ﾃï｣ｿﾃｨﾃｺﾃ､Oﾃ嘉､ﾃ厩ﾃ曳ﾃﾂｩﾃﾃﾃ､Oﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"elseget "OK"end ifif it is "OK" thenif op then put empty into meelse delete the selectedLine of meend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>33</top>
<right>193</right>
<bottom>48</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>265</top>
<right>317</right>
<bottom>285</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬo ﾃｲ^</name>
<script>on mouseUpglobal ListSelectExitset the cursor to watchput cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into forumListif forumList <> empty thenget ListSelect ("*3",forumList,"ﾃｨﾃｺﾃ､Oﾃ竏妥ﾃ暗液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ASLFont+,9","230,52,460,297","ﾃｬo ﾃｲ^")if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into forumListput cd fld id 1 into exceptForumListrepeat with r = 1 to the number of items of forumListset the cursor to busyget item r of forumListif it & return is not in exceptForumList then put it & return after exceptForumListend repeatsort lines of exceptForumListput exceptForumList into cd fld id 1elseanswer quote & "addin_" & quote && "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ嘉､ﾃ厩ﾃ曳ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>47</top>
<right>489</right>
<bottom>243</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>20</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>370</left>
<top>265</top>
<right>451</right>
<bottom>285</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｩﾂｩﾃｬﾃﾃｬoﾃｲ^</name>
<script>on mouseUp filePathput "*Prompt*MES " into k1put "ﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫ" into k2send "readLogFile filePath,k1,k2" to cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
<script>on controlKey whichKeyif whichKey = 1 then -- AsendBtn "cd btn id 3"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1end clearData-- ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｩﾂｩﾃｬﾃﾃｬoﾃｲ^on RoomTitle ForumName,titleList,logHeaderglobal cNMDialogOFF,cNMautoReaddelete line 1 of titleListput cd fld id 1 into exceptForumListput the number of lines of titleList into lnrepeat with r = 1 to lnif char 1 of line r of titleList is "ﾃ ﾃｼ" thenbeepif ForumName & return is not in exceptForumList thenput ForumName & return after exceptForumListLoadCard 36350if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 36350,trueend ifexit repeatend ifend ifend repeatsort lines of exceptForumListput exceptForumList into cd fld id 1put "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①" & ForumNameend RoomTitleon GComBtnreturn "cd btn id 5"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_40331.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset the hilite of cd btn id 2 to falseset the hilite of me to trueend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>268</left>
<top>50</top>
<right>326</right>
<bottom>68</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>RMN</name>
<script>on mouseUpset the hilite of cd btn id 1 to falseset the hilite of me to trueend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>154</left>
<top>79</top>
<right>187</right>
<bottom>97</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseDownUxPop "1;2;3","T",,the topLeft of meif it <> empty thenset the cursor to watchsetFld itend ifend mouseDownon setFld fput "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" into bgNameif f is 1 thenset the rect of bg fld "TITLElist1" of cd 1 of bg bgName to "8,47,505,273"hide bg fld "TITLElist2" of cd 1 of bg bgNamehide bg fld "TITLElist3" of cd 1 of bg bgNameset the enabled of bg btn id 103 of cd 1 of bg bgName to falseset the enabled of bg btn id 104 of cd 1 of bg bgName to falseelse if f is 2 thenset the rect of bg fld "TITLElist1" of cd 1 of bg bgName to "8,47,489,259"set the rect of bg fld "TITLElist2" of cd 1 of bg bgName to "24,61,505,273"show bg fld "TITLElist2" of cd 1 of bg bgNamehide bg fld "TITLElist3" of cd 1 of bg bgNameset the enabled of bg btn id 103 of cd 1 of bg bgName to trueset the enabled of bg btn id 104 of cd 1 of bg bgName to falseelse if f is 3 thenset the rect of bg fld "TITLElist1" of cd 1 of bg bgName to "8,47,489,259"set the rect of bg fld "TITLElist2" of cd 1 of bg bgName to "16,54,497,266"set the rect of bg fld "TITLElist3" of cd 1 of bg bgName to "24,61,505,273"show bg fld "TITLElist2" of cd 1 of bg bgNameshow bg fld "TITLElist3" of cd 1 of bg bgNameset the enabled of bg btn id 103 of cd 1 of bg bgName to trueset the enabled of bg btn id 104 of cd 1 of bg bgName to trueend ifend setFld</script>
<script>on mouseUpif cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ嘉､ﾃ厩ﾃ曳 " <> empty thenlock screenif the hilite of me thenput "*" into mkput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝厭ﾃ [ﾃ丑ﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ｭﾃ"elseput " " into mkput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝厭ﾃ [ﾃ丑ﾃï｣ｿﾃ｢ï｣ｿﾃｨﾃｺﾃｭﾃ"end ifpush cardgo to cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ嘉､ﾃ厩ﾃ曳 " of bg id 36594 -- ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺsend "resetList mk" to cd btn id 6pop cardhide msgend ifend mouseUp</script>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenset the hilite of cd btn id 1 to trueset the hilite of cd btn id 2 to falseset the hilite of cd btn id 7 to falseset the hilite of cd btn id 8 to falseset the hilite of cd btn id 9 to falseset the hilite of cd btn id 11 to falseset the hilite of cd btn id 12 to falseset the enabled of cd btn id 12 to falseset the hilite of cd btn id 13 to trueset the hilite of cd btn id 14 to trueset the hilite of cd btn id 15 to falseput 2 into cd fld id 3send "setFld 2" to cd fld id 3end clearData</script>
</card>
card_32246.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUplock screenget the hilite of meset the enabled of cd btn id 2 to itset the visible of cd fld id 19 to itif it is true thenset the style of cd fld id 23 to "transparent"elseset the style of cd fld id 23 to "rectangle"end ifend mouseUp</script>
<script>on mouseUpclicklist word 2 of the selectedLine of meend mouseUpon clicklist ln,opget line ln of cd fld id 21if it is empty then exit clicklistselect line ln of cd fld id 21if the optionKey is down or op is true thenif char 3 of it is "B" thenput " " into char 3 of itelseif char 1 of it is " " thenput "* B" into char 1 to 3 of itelseput "B" into char 3 of itend ifend ifelseif char 1 of it is "*" thenput " " into char 1 to 3 of itelseput "* B" into char 1 to 3 of itend ifend ifput it into line ln of cd fld id 21select line 0 of cd fld id 21end clickliston mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
<script>on mouseWithinset the scroll of cd fld id 21 to the scroll of cd fld id 22end mouseWithin</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>34</left>
<top>118</top>
<right>47</right>
<bottom>302</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpif the hilite of cd btn id 1 thenput word 2 of the clickLine into lput l + round((the scroll of cd fld id 21) / 14) into clsend "clicklist cl,true" to cd fld id 21end ifend mouseUp</script>
<text>* B ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｬﾂｸﾃ｢ﾃ* B ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃﾂｮﾃｭmﾃﾃﾃﾏ\* B ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬ* B ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ* B ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ* B ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ* B ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ* B ﾃ｣Cﾃｨ竄ｬﾃｨﾃ禿ｯﾃ津｢ﾃ甘ｫﾃｺﾃ欝ﾃ [ﾃ詠ﾃ厩* B ﾃ･fﾃｩﾂｶﾃｮﾂｬ BBS* B ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ * B ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ * B ﾃﾂｪﾃﾃεｫﾂｺ, 1. ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\* B ﾃﾂｪﾃﾃεｫﾂｺ, 2. ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\* B ﾃﾂｪﾃﾃεｫﾂｺ, 5. MYFORUMﾃ⑥ﾃｫïｬﾃ｢ﾃ* B ﾃﾂｪﾃﾃεｫﾂｺ, 6. ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃｪ窶ｺﾃｭﾃ* B ﾃﾂｪﾃﾃεｫﾂｺ, 7. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｪ窶ｺﾃｭﾃ* B ﾃﾂｪﾃﾃεｫﾂｺ, 8. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ* B ﾃﾂｪﾃﾃεｫﾂｺ,10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑* B ﾃﾂｪﾃﾃεｫﾂｺ,11. ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ* B ﾃﾂｪﾃﾃεｫﾂｺ,13. ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ* B ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ, ﾃｩﾃ崚ｪMﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ * B ﾃ丑ﾃ嘉､ﾃ叡ﾃ鋭ﾃ嘉ｬﾃ碓* B ﾃ英ﾃ影ﾃ隠ﾃ迂ﾃｬﾂｸﾃ｢ﾃ MREad* B ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ,ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ烏ﾃ嘉｢ﾃ [ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ</text>
</content>
<content>
<layer>card</layer>
<id>22</id>
<text>1:ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ､Tﾃｳvﾃ①ﾃ①2:ﾃ ﾃ催ｩﾃｻﾃｳﾃｲﾃｳpﾃ①ﾃ①3:ﾃｬﾂｸﾃ｢ﾃ氾ｩﾃ凝ｫﾂｱﾃﾂｴFORUM>ANNBUL,ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦ﾃｮ窶佚ｧﾃ愿①ﾃｮ竕 ﾃ･ﾃｦ (ﾃｱﾂ｢ﾃｬﾂｫ) ﾃ①ﾃｧ竕暗ｪVﾃ①ﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂｺﾃ ﾃ嘉運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ ﾃ,ﾃ ﾃ嘉嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ ﾃﾃｮ窶佚ｧﾃ愿①ﾃｫﾃｧﾃｪﾃｮﾃ①ﾃｬoﾃｲ^ﾃｧﾅ禿①ﾃｧ竕暗ｪVﾃ①ﾃ①ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｱﾂｺﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ (1:ﾃ嘉 ﾃ泳ﾃ嘉姪 [ﾃｯ¥ﾃｩﾂｶﾃ｣Cﾃｨ竄ｬﾃｨﾃ禿ｯﾃ津｢ﾃ甘ｫﾃｺﾃ欝ﾃ [ﾃ詠ﾃ厩 WPICDO BBS,ﾃ･fﾃｩﾂｶﾃｯ竏づｨﾃｫﾃｪﾃｮﾃ⑦ﾃ ﾃ糎SEAﾃ ﾃ全EArchﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ NEWﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ OANNﾃ｣Mﾃｯﾋ堙ﾃ陛 ﾂｻﾃ｢竏ｫﾃﾃε液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ窶ｦﾃｬﾂｸﾃ｢ﾃ氾ｪ¥ﾃｧﾃｻﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭm,窶懌槐ｸﾂｵﾃïｬつｺﾃ窶ｺ (,ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥❶ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1,2:ﾃﾂｵﾃﾂｻﾃﾂ｢) by NIFTY Corporationﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ ID MAIL>LISt,ﾃｩﾃ佚ｯﾂ ﾃｩqﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ,DLI-Staff,Macintosh Variety Sysopﾃｮ窶佚ｧﾃ ﾃｫﾃｳﾃｪMﾃｩ窶 ﾃｬﾋ凖ｯt ,ﾃｫﾃ凝ｱﾂｺ ﾃｧsﾃ⑴KB,ﾃｫﾃｳﾃｪMﾃ･竕･ID/ﾂｱﾆ抵ｬ≫＞ﾎｩ A F C R Byteﾃ丑ﾃ嘉､ﾃ叡ﾃ鋭ﾃ嘉ｬﾃ碓ﾃ欝ﾃ [ﾃ詠ﾃ厩 CLIP,ﾃ vﾃ窶ｦﾃ｣Lﾃｩﾃｱﾃ邃｢,ﾃ･ﾃｨﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥❶ID (ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃ⑦ﾃｩﾂｩﾃｯ邃｢ﾃﾃε英ﾃ影ﾃ隠ﾃ迂)ﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫ</text>
<script>on closeCardselect line 0 of cd fld id 21pass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput cd fld id 21 into listrepeat with r = 1 to the number of lines of listput "* B" into char 1 to 3 of line r of listend repeatput list into cd fld id 21set the hilite of cd btn id 1 to trueset the hilite of cd btn id 2 to trueset the enabled of cd btn id 2 to trueset the visible of cd fld id 19 to trueset the style of cd fld id 23 to "transparent"end clearDataon scrFldsetScrollFld "cd fld id 21"end scrFld</script>
</card>
card_55714.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSif the selectedText of me is empty and the selectedText of cd fld id 11 of cd id 55714 is empty then disable cd btn id 7 of cd id 55714pass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meif the selectedText of cd fld id 11 is empty then disable cd btn id 7exit mouseUpend ifif the optionKey is down thendelete the selectedLine of meselect line 0 of meend ifselect line 0 of cd fld id 11enable cd btn id 7end mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>203</top>
<right>317</right>
<bottom>223</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃε溪王ﾅｸﾃｱﾂｺﾃｬﾂｸﾃｳﾃ</name>
<script>on mouseUpput (the optionKey is down) into opif op thenask "ﾃｧﾃ古ｨﾃｺﾃﾂｩﾃﾃﾃｨﾃｺﾃ､Oﾃ竏妥ﾃ暗⑿ﾃｧﾃ古ｨﾃｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ⒀ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ⑿ﾃ窶｡ﾃﾂｵﾃ竕 ﾃﾃ陛ﾂｪﾃﾃε ﾃ催ｯﾃｮﾃ⒀ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put 11 into felseask "NIFTY-Jﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ⑿ﾃ窶｡ﾃﾂｵﾃ竕 ﾃﾃ陛ﾂｪﾃﾃε ﾃ催ｯﾃｮﾃ⒀ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put 1 into fend ifif it is empty or it is "#" or the result is "Cancel" then exit mouseUpput it into fileNameput cd fld id f into delFileListif MtScanList(delFileList,fileName,,true) is empty then put fileName & return after delFileListsort lines of delFileListput delFileList into cd fld id fend mouseUp</script>
<script>on mouseUpset the enabled of cd btn id 10 to the hilite of meend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>370</left>
<top>265</top>
<right>451</right>
<bottom>285</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpglobal ListSelectExit,cNMautoReadset the cursor to watchput nifJPath() into FldrPathput pathTofile(NasuPath()) into Nasuput pathTofile(knifePath()) into knifeif knife <> empty and Nasu <> empty and FldrPath <> empty thenput knife && "ﾃｨIﾃｳﾏ\ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ"if the version < 2.1 thenput the number of lines of the menus into mwait until knife is not in menu 1 and knife is not in menu mput (Nasu is not in menu 1 and Nasu is not in menu m) into delOKelsewait until knife is not in menu application-- close Nasuput (Nasu is not in menu application) into delOKend ifhide msgif delOK thenput "ﾃｧﾃ古ｨﾃｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ"put cd fld id 1 of cd "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ" into listput empty into list2put "T:TEXT" & return & "N:#" into TargetParamput fileListInFldr(FldrPath,TargetParam) into nasuListrepeat with r = 1 to the number of lines of listget line r of listget MtPickUpLines(nasuList,it)if it <> empty then put it & return after list2end repeatif the hilite of cd btn id 10 of cd "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ" thenput the number of lines of nasuList into nrepeat with r = 1 to nget line r of nasuListput MtGetFInfo(FldrPath & it,",") into fInfoif item 3 of fInfo is 0 then put it & return after list2end repeatend ifput empty into delListrepeat with r = 1 to the number of lines of list2get line r of list2 & returnif it is not in delList then put it after delListend repeatput cd fld id 11 of cd "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ" into listrepeat with r = 1 to the number of lines of listget MtScanList(delList,line r of list)put the number of lines of it into nrepeat with l = n down to 1delete line (item 1 of line l of it) of delListend repeatend repeathide msgif delList <> empty thenif cNMautoRead is false thenget ListSelect ("*3",delList,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｧﾃ ﾃｨﾃｺ","NoDoubleClick","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into fileListelseput delList into fileListend ifput the number of lines of fileList into nrepeat with r = n down to 1set the cursor to busyget line r of fileListput "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①" & itput FldrPath & it into filePathif there is a file filePath then MtDeleteFile filePathelse delete line r of fileListif the result <> empty then answer the resultend repeatputReport return & "------ ﾃｧﾃ古ｨﾃｺﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ------" & return & fileList & returnhide msgelseif cNMautoRead is false then answer "ﾃｧﾃ古ｨﾃｺﾃｫﾅ津ｨ竄ｬﾃﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃ陛窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"end ifelseif cNMautoRead is false thenbeepanswer "ﾃ｢ﾃｷﾃｩqﾃqﾃï｣ｿﾃｨIﾃｳﾏ\ﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"sendBtn "cd btn id 9"end ifend ifelsebeepend ifend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>236</left>
<top>161</top>
<right>317</right>
<bottom>181</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯﾅ ﾃｧX</name>
<script>on mouseUpput 1 into fput the selectedText of cd fld id 1 into fileNameif fileName is empty thenput 11 into fput the selectedText of cd fld id 11 into fileNameend ifif fileName is empty thenanswer "ﾃｯﾅ禿ｧXﾃ竏妥ﾃ暗窶｡ﾃﾃεï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"elseask quote & fileName & quote && "ﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥③" with fileNameif it <> empty and it <> fileName thenset the cursor to watchlock screenput it into the selectedLine of cd fld id fsort lines of cd fld id fend ifend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>236</left>
<top>130</top>
<right>317</right>
<bottom>150</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ厩ﾃ曳ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput 1 into fput the selectedText of cd fld id 1 into fileNameif fileName is empty thenput 11 into fput the selectedText of cd fld id 11 into fileNameend ifif fileName is empty thenanswer "ﾃ嘉､ﾃ厩ﾃ曳ﾃï｣ｿﾃｫSﾃﾆ津ｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "ﾃｧﾃ古ｨﾃｺﾃ嘉､ﾃ厩ﾃ曳" or "ﾃｨﾃｺﾃ､Oﾃ嘉､ﾃ厩ﾃ曳" or "Cancel"if it is "ﾃｧﾃ古ｨﾃｺﾃ嘉､ﾃ厩ﾃ曳" thenput empty into cd fld id 1else if it is "ﾃｨﾃｺﾃ､Oﾃ嘉､ﾃ厩ﾃ曳" thenput empty into cd fld id 11end ifelseanswer quote & fileName & quote && "ﾃï｣ｿﾃ嘉､ﾃ厩ﾃ曳ﾃﾂｩﾃﾃﾃ､Oﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "OK" thendelete the selectedLine of cd fld id fselect line 0 of cd fld id fend ifend ifend mouseUp</script>
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSif the selectedText of me is empty and the selectedText of cd fld id 1 of cd id 55714 is empty then disable cd btn id 7 of cd id 55714pass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meif the selectedText of cd fld id 1 is empty then disable cd btn id 7exit mouseUpend ifif the optionKey is down thendelete the selectedLine of meselect line 0 of meend ifselect line 0 of cd fld id 1enable cd btn id 7end mouseUp</script>
<script>on closeCardselect line 0 of cd fld id 1select line 0 of cd fld id 11disable cd btn id 7pass closeCardend closeCardon controlKey whichKeyif whichKey = 1 then -- AsendBtn "cd btn id 3"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenset the hilite of cd btn id 5 to falseset the hilite of cd btn id 10 to falseset the enabled of cd btn id 10 to false-- put empty into cd fld id 1put "#BBS-000" & return & "#CLIP-099" & return into cd fld id 1put empty into cd fld id 11end clearDataon addList f,pglobal ListSelectExitset the cursor to watchput nifJPath() into nifJPathput fileListInFldr(nifJPath,"T:TEXT") into nasufileListif nasufileList <> empty thenget ListSelect ("*3",nasufileList,p & "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀",return,"ASLFont+,9","230,52,460,297","ﾃｬo ﾃｲ^")if ListSelectExit is "Cancel" or it is empty then exit addListput it into fileListput (the optionKey is down) into opput cd fld id f into delFileListrepeat with r = 1 to the number of lines of fileListset the cursor to busyget line r of fileListif op is false then get char 1 to (offset("(",it) - 1) of itif MtScanList(delFileList,it,,true) is empty then put it & return after delFileListend repeatsort lines of delFileListput delFileList into cd fld id felseanswer "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"end ifend addListon GComBtnreturn "cd btn id 6"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_22568.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownUxPop "ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③;ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃ竏妥ﾃ暗③;ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③","TW",,the topLeft of meput quote & "addin_CNM" & quote & "ﾃ ﾂｻﾃ､Oﾃﾃ" into tif me is "ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③" thenset the enabled of cd btn id 6 to falseelseset the enabled of cd btn id 6 to trueif me is "ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃ竏妥ﾃ暗③" thenset the name of cd btn id 6 to t & "ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③"else if me is "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③" thenset the name of cd btn id 6 to t & "ﾃｧﾃ古ｨﾃｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③"end ifend ifset the enabled of cd btn id 7 to (cd fld id 3 is "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③" or cd fld id 19 is "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③")end mouseDown</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>47</top>
<right>193</right>
<bottom>302</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ﾃｨﾃｺﾃ､Oﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳</name>
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meexit mouseUpend ifget the selectedText of meif it is empty then exit mouseUpput (the optionKey is down) into opif op then get "ﾃｫSﾃﾆ津ﾃε液ﾃ院ﾃ韻ﾃ嘉｣"if the shiftKey is up thenanswer quote & it & quote && "ﾃï｣ｿﾃｨﾃｺﾃ､Oﾃ嘉､ﾃ厩ﾃ曳ﾃﾂｩﾃﾃﾃ､Oﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"elseget "OK"end ifif it is "OK" thenif op then put empty into meelse delete the selectedLine of meend ifselect line 0 of meend mouseUp</script>
<script>on mouseUpglobal ListSelectExitset the cursor to watchput cNifPath() into cNifPathput fileListInFldr(cNifPath,"T:TEXT" & return & "N:addin_") into cNifFileListif cd fld id 19 <> "ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③" then put return & fileListInFldr(cNifPath,"T:TEXT" & return & "N:foreign_") after cNifFileListif cNifFileList <> empty thenget ListSelect ("*3",cNifFileList,"ﾃｩﾂｩﾃｬﾃﾃｧﾃ古ｨﾃｺﾃﾂｩﾃﾃﾃｨﾃｺﾃ､Oﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀",return,"ASLFont+,9","230,52,460,297","ﾃｬo ﾃｲ^")if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into fileListput cd fld id 4 into exceptfileListrepeat with r = 1 to the number of lines of fileListset the cursor to busyget line r of fileListif MtScanList(exceptfileList,it,,true) is empty then put it & return after exceptfileListend repeatsort lines of exceptfileListput exceptfileList into cd fld id 4elseanswer quote & "addin_" & quote && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"end ifend mouseUp</script>
<script>on mouseUpif the optionKey is down then get "foreign_" else get "addin_"ask "ﾃｩﾂｩﾃｬﾃﾃｧﾃ古ｨﾃｺﾃﾂｩﾃﾃﾃｨﾃｺﾃ､Oﾃ竏妥ﾃ暗液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with itif it is empty or it is "addin_" or it is "foreign_" or not("addin_" is in it or "foreign_" is in it) or the result is "Cancel" then exit mouseUpput it into fileNameput cd fld id 4 into exceptfileListif MtScanList(exceptfileList,fileName,,true) is empty then put fileName & return after exceptfileListsort lines of exceptfileListput exceptfileList into cd fld id 4end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>354</left>
<top>139</top>
<right>446</right>
<bottom>159</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name></name>
<script>on mouseDownUxPop "ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③;ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃ竏妥ﾃ暗③;ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③","TW",,the topLeft of meset the enabled of cd btn id 7 to (cd fld id 3 is "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③" or cd fld id 19 is "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③")end mouseDown</script>
<script>on controlKey whichKeyif whichKey = 1 then -- AsendBtn "cd btn id 13"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screensetTxt "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗③",3setTxt "ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③",19set the hilite of cd btn id 6 to falseset the hilite of cd btn id 7 to falseset the hilite of cd btn id 11 to falseset the enabled of cd btn id 6 to trueset the enabled of cd btn id 7 to trueput quote & "addin_CNM" & quote & "ﾃ ﾂｻﾃ､Oﾃﾃ陛ｧﾃ古ｨﾃｺﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ③" into tset the name of cd btn id 6 to tput empty into cd fld id 4put empty into cd fld id 12end clearDataon GComBtnreturn "cd btn id 8"end GComBtnon scrFldsetScrollFld "cd fld id 4"end scrFld</script>
</card>
card_30158.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃï｣ｿﾃｫSﾃﾆ津ﾃ陛竏湘ﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenset the cursor to watchrepeat with r = 1 to 16set the hilite of cd btn r to falseend repeatunmark this cdset the hilite of bg button "createMark" to falseend clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNamerepeat with r = 1 to 16if the hilite of cd btn r thensend "macro" to cd btn rend ifend repeatend makeMacro</script>
</card>
card_28966.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the optionKey is down thenopenEditLogelseglobal ListSelectExitset the cursor to watchput empty into listput cd fld id 2 into dataListput round(the scroll of cd fld id 2 / 14) + 1 into lput MtScanList(dataList,"ﾃ z ") & return into pput MtScanList(dataList,"ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ①") after pput the number of lines of p into lnrepeat with r = 1 to lnput item 1 of line r of p into line r of pend repeatsort lines of p numericrepeat with r = 1 to lnput line r of p into nget line n of dataListif "ﾃ①ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡" is in it thenput offset("ﾃ①",it) into xput offset("ﾃ①ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡",it) into yif y is 0 then next repeatput addzero(r,2) && char x to (y - 1) of it & return after listelseput addzero(r,2) && it & return after listend ifif n <= l then put r into send repeatget ListSelect ("1#",list,"s=" & s,"ﾃｫIﾃｫï｣ｿﾃｯﾃｮﾃｯ邃｢ﾃï｣ｿﾃｯ¥ﾃｩﾂｶﾃﾂｵﾃ窶ｹﾃ竏妥③","100,40,410,280",return,"ASLFont+,9")if ListSelectExit is "Cancel" or it is empty then exit mouseUpset the cursor to watchselect before line (item 1 of line it of p) of cd fld id 2select emptyend ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>47</top>
<right>505</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpglobal cNMeditDownListset cursor to watchput (the shiftKey is down) into shput target into LIBListput cd fld id 1 of cd " 3. LIBﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" into DownListput the selectedText of me into cTextput char 1 to 4 of cText into DataNoif cText <> empty and DataNo is a integer thenrepeat with r = (word 2 of the selectedLine of me) down to 1get line r of LIBListif char 1 to 4 of it is not a integer thenput "¥m" & word 1 of it into ForumNameput word 2 of it into LIBNoexit repeatend ifend repeatput addzero(value(DataNo),4) into DataNoput char 16 to 22 of cText into DataSizeput char 25 to length(cText) of cText into DataNameif " " & ForumName & return is not in DownList then put " " & ForumName & return after DownListput offset(ForumName & return,DownList) + length(ForumName) into xif sh then get "* " else get " "put it & LIBNo & "-" & DataNo & " /*" && DataSize && "bytes :" && DataName && "*/" & return into DownDataput DownData after char x of DownListput DownList into cd fld id 1 of cd " 3. LIBﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"mark cd " 3. LIBﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"put true into cNMeditDownListend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃ yDLI(ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ)ﾃ zﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"if "MUON" is in cd fld "forumList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" and the optionKey is up thenget "as DLI-Staff" -- MuON ﾃﾃε窶ｺelseget "DLI-Staff" -- MuON / FMACUS(7) ﾃｫSﾃﾆ-- get "DLI-Staff of MuON" -- FMACUS(7) ﾃﾃε窶ｺend ifput readLogFile2("ﾃ yDLI(ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ)ﾃ z",it,filePath,true,"before") into theLogif the hilite of cd btn id 8 then put readLogFile2("FMACVﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃｨﾃ禿ｯﾃ","Macintosh Variety Sysop",line 2 of theLog,true,"before") after theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into logHeaderdelete line 1 to 2 of theLogput the number of lines of theLog into nrepeat with r = n down to 1set the cursor to busyif char 1 to 2 of line r of theLog <> "ﾃ t " and char 1 to 3 of line r of theLog <> " ﾃ t " thendelete line r of theLogelseif char 1 to 2 of line r of theLog is "ﾃ t " then get 2 else get 3delete char 1 to it of line r of theLogif char 1 of line r of theLog is "ﾃ y" then put tab after line r of theLogend ifend repeatif theLog <> empty thenput "ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ①" & line 1 of logHeader & "ﾃ①ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡ﾃ ﾃ｡" & return & theLog & return into theLogput cd fld id 2 after theLogrepeat until length(theLog) < 30000set the cursor to busydelete last line of theLogend repeatput logHeader into cd fld id 1put theLog into cd fld id 2LoadCard 28966if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 28966,trueend ifend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>DownListﾃ､mﾃｮFﾃ⑴ﾃｯ竄ｬﾃｫ竏</name>
<script>on mouseUpif the commandKey is up then wait 15if not(the optionKey is "up" and the mouse is "up") thenvisual effect barn door close fast to inversevisual effect barn door open fastput bg fld id 22 into forumNameput the number of cards of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" into cnrepeat with r = 1 to cnget bg fld id 14 of cd r of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ"if it is forumName thengo to cd r of bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ"exit mouseUpend ifend repeatgo to bg "ﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ"elsevisual effect dissolve fastgo to card id 19774end ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 2 to the hilite of meend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>487</left>
<top>5</top>
<right>505</right>
<bottom>23</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpclearDataend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>129</left>
<top>286</top>
<right>278</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>FMACVﾃ嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃ [ﾃｨﾃ禿ｯﾃ津ｫﾅ津｢ﾃｻ</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text>13. ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ</text>
</content>
<name>13. ﾃｨTﾃ､ﾃ淌嘉｢ﾃ韻ﾃ疫ﾃ嘉｢ﾃ嘉､ﾃｨﾃ禿ｯﾃ</name>
<script>on closeCardset the lockText of cd fld id 2 to trueset the hilite of cd btn id 5 to trueset the marked of this cd to falsepass closeCardend closeCardon controlKey whichKeyif whichKey = 12 then -- L "DownList"sendBtn "cd btn id 4"else if whichKey = 10 then -- Jsend "mouseUp" to cd fld id 1elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1put empty into cd fld id 2end clearDataon makeMacroend makeMacroon GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_59383.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 12set the hilite of cd btn id 3 to trueset the hilite of cd btn id 11 to falseset the hilite of cd btn id 15 to falseend clearDataon KWCheckput the target into checkFldput value(checkFld) into txtif "^m" is in txt then put char 1 to offset("^m",txt) - 1 of txt into txtdo "put txt into" && checkFldend KWCheck----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNM_MAIL,cNM_MAIL3NEWset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"send "exitField" to cd fld id 1send "exitField" to cd fld id 2put line 1 of cd fld id 1 into d1put line 1 of cd fld id 2 into d2put line 1 of cd fld id 12 into d3put the hilite of cd btn id 3 into actionif MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"put MacroGoMail() after cNM_MAILend ifputVariableName "cNM_MAIL3NEW"put empty into cNM_MAIL3NEWif the hilite of cd btn id 11 thenput nextLabel() into labelput "m: ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" & return &ﾂｬ"s:REAd^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label & ":^mMAIL>" & return &ﾂｬ"s:E^m" & return & "r:^mMAIL>" & return &ﾂｬlabel & ":" & return &ﾂｬ"*: TotalLabel : 1" & return after cNM_MAIL3NEWend ifput "m: ﾃｱﾂ｢ﾃｬﾂｫﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｩﾃ崚ｪM" & return &ﾂｬ"s:REAd NEW^m" & return after cNM_MAIL3NEWif d1 & d2 & d3 is empty thenput macro1(action) after cNM_MAIL3NEWelseput macro2(d1,d2,d3,action) after cNM_MAIL3NEWend ifif the hilite of cd btn id 15 and MtScanList(cNMvariableList,"cNM_MAIL_END",,true) is empty thenglobal cNM_MAIL_ENDputVariableName "cNM_MAIL_END"put "m: ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｩﾃ佚ｯﾂ ﾃｩqﾃ嘉､ﾃ厩ﾃ曳" & return &ﾂｬ"s:LISt^m" & return & "r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 0" & return after cNM_MAIL_ENDend ifend makeMacrofunction macro1 actionif action then put "*□DELete" into a1else put "*□SAVe" into a1put nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put nextLabel() into label4put label1 & ":" & return into mif the hilite of cd btn id 15 of cd "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ" then get "^m" else get emptyput "r:" & it & ".... ﾆ" & label4 & ":^mMAIL>" & return after mput label2 & ":" & return &ﾂｬ"r:^maction:" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:" & a1 & "^m" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel4 & ":" & return &ﾂｬ"*: TotalLabel : 4" & return after mreturn mend macro1function macro2 d1,d2,d3,actionif action thenput "*□DELete" into a1put "*□SAVe" into a2elseput "*□SAVe" into a1put "*□DELete" into a2end ifput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put nextLabel() into label4if d3 <> empty then put nextLabel() into label5put nextLabel() into label6put nextLabel() into label7put label1 & ":" & return into mif the hilite of cd btn id 15 of cd "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ" then get "^m" else get emptyput "r:" & it & ".... ﾆ" & label7 & ":^mMAIL>" & return after m-- d1 : ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ / ID / ﾃ嘉 ﾃ [ﾃ嘉｣ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩if d1 <> empty thenif d2 is empty and d3 is empty thenput "r:" & d1 & "ﾆ" & label4 & ":" & "^m" & return after melseput "r:^mﾆ" & label2 & ":" & d1 & return after mend ifend ifif d2 <> empty or d3 <> empty thenput "r: ﾃｫﾃ凝ｱﾂｺ" & return after mend if-- d2 : ﾃｫﾃ凝ｱﾂｺif d2 <> empty thenif d3 is empty thenput "r:" & d2 & "ﾆ" & label4 & ":^m" & return after melseput "r:^mﾆ" & label2 & ":" & d2 & return after mend ifend if-- d3 : ﾃｱ{ﾃｯ竏if d3 <> empty thenput "r:" & d3 & "ﾆ" & label5 & ":^maction:" & return after mend ifput label2 & ":" & return &ﾂｬ"r:^maction:" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:" & a1 & "^m" & return &ﾂｬ"j:" & label1 & return after mput label4 & ":" & return &ﾂｬ"r:^maction:" & return after mif d3 <> empty then put label5 & ":" & return after mput "t:" & label6 & ":1:." & return &ﾂｬ"j:" & label4 & return &ﾂｬlabel6 & ":" & return &ﾂｬ"s:" & a2 & "^m" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel7 & ":" & return after mif d3 is empty then get 6 else get 7put "*: TotalLabel : " & it & return after mreturn mend macro2</script>
</card>
card_28173.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to watchif the optionKey is down then put "D" into kelse if the shiftKey is down then put "R" into kelse put empty into kput the selectedText of me into cTextif cText is empty then exit mouseUpput word 2 of the selectedLine of me into rput not(char 3 of cText is a number and char 4 of cText is " ") into modeif mode and char 4 of cText is " " thensubtract 1 from rselect line r of meend ifput cd fld id 1 into list1put cd fld id 5 into list2put DRmail(r,k,list1,mode) into mailIDif mailID <> empty thenput MtScanList(list2,char 4 to 11 of mailID) into sif s is empty thenput char 1 of mailID into char 5 of line r of list1put mailID into item (the number of items of list2) + 1 of list2elseput " " into char 5 of line r of list1repeat with i = the number of items of s down to 2delete item (item i of s) of list2end repeatend if-- sort items of listput list1 into cd fld id 1put list2 into cd fld id 5end ifselect line 0 of cd fld id 1end mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>30</top>
<right>505</right>
<bottom>46</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpopenEditLogend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｩﾃ佚ｯﾂ ﾃｩqﾃ嘉､ﾃ厩ﾃ曳ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put readLogFile2("MAIL>LISt",return & "MAIL>",filePath,,,1) into theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into cd fld id 2put line 3 of theLog into cd fld id 6delete line 1 to 4 of theLogrepeat until the length of theLog < 30000delete last line of theLogend repeatput theLog into cd fld id 1put empty into cd fld id 5LoadCard 28173if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 28173,trueend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput cd fld id 1 into trepeat with r = 1 to the number of lines of tset the cursor to busyput " " into char 5 of line r of tend repeatput t into cd fld id 1put empty into cd fld id 5end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>10</left>
<top>274</top>
<right>244</right>
<bottom>313</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpif the optionKey is down then put "D" into kelse if the shiftKey is down then put "R" into kelse put " " into kput cd fld id 1 into list1put cd fld id 5 into list2get line 1 of list1put not(char 3 of it is a number and char 4 of it is " ") into modeput the number of lines of list1 into nrepeat with r = 1 to nset the cursor to busyif mode and (r mod 2) is 0 then next repeatput DRmail(r,k,list1,mode) into mailIDif mailID is empty thenif the optionKey is down then exit repeatelse next repeatend ifput MtScanList(list2,char 4 to 11 of mailID) into sif s <> empty thenrepeat with i = the number of items of s down to 2delete item (item i of s) of list2end repeatend ifput char 1 of mailID into char 5 of line r of list1put mailID into item (the number of items of list2) + 1 of list2end repeatput list1 into cd fld id 1put list2 into cd fld id 5select line 0 of cd fld id 1end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>430</left>
<top>30</top>
<right>504</right>
<bottom>46</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>listNum</name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ</name>
<script>on mouseUpvisual effect barn door close fast to inversevisual effect barn door open fastgo to cd 1 of bg "ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ"end mouseUp</script>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 5put empty into cd fld id 6set the hilite of cd btn id 8 to falseend clearDatafunction identifier txtput the number of chars of txt into ncput char (nc - 7) to nc of txt into txt-- ﾃｯ竏づｩﾃｶﾃ｢ﾂｪﾃﾃ佚ｩﾃ佚ｯﾂ ﾃｩqﾃｫﾅ津ｧﾃif length(txt) > 8 thenput char 1 of txt into xput numToChar(charToNum(x)) into aput empty into yrepeat with r = 48 to 90get numToChar(r)if it is in (a & x) thenput it into yexit repeatend ifend repeatput y into char 1 of txtend ifreturn txtend identifierfunction DRmail r,k,list1,modeput line r of list1 into cTextput identifier(cText) into mailIDput mailStatus(char 1 to (the number of chars of cText) - 8 of cText,mode) into mStatusif mode then get line (r + 1) of list1else get line 2 of mStatusput word 1 to (the number of words of it) of it into mTitleput (the target is "card field id 5") into fif item 2 of line 1 of mStatus is false and k <> "R" thenif char 5 of cText is " " or f then beepif item 1 of mStatus is "T" then put "ﾃｬﾂｫﾃﾃ津竕暗ﾂ｢ﾃﾂｻﾃﾂ｢ﾃ⑿ﾃ竏ﾃｩvﾃﾃ古ﾃ催ﾃ暗⒀" into pelse put "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄ﾃﾂｵﾃﾆ津ﾂ｢ﾃﾂｻﾃﾂ｢ﾃ⑿ﾃ竏ﾃｩvﾃﾃ古ﾃ催ﾃ暗⒀" into pelse put empty into pif (p <> empty or k is empty) and char 5 of cText is " " or (p <> empty and f) or k is " " thenselect line r of cd fld id 1if f thenget return & "ﾃ⑿option + Passﾃ竕暗ｭﾃ愿ｩ~ﾃ⒀"put "Pass" into belseget emptyput "Cancel" into bend iflock screenunlock screenanswer quote & mTitle & quote & return & p & "ﾃﾂｱﾃﾃε嘉 ﾃ [ﾃ嘉｣ﾃï｣ｿﾃﾂｫﾃﾂｧﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" & it with "D. ﾃｧﾃ古ｨﾃｺ" or "R. ﾃｧﾆ津ｩﾃ崚ｪM" or bif it is "Cancel" or it is "Pass" then return emptyget char 1 of itelse get kreturn it & item 1 of mStatus & ":" & mailIDend DRmailfunction mailStatus txt,modeif mode thenput the number of chars of txt into nput char (n - 8) to n of txt into msreturn char 1 of ms & "," & (char 7 of ms is "*")elseput (char 1 of txt is "*") into msrepeat until length(txt) < 50delete char 1 of txtend repeatget char 8 of txtif it is " " then get "T"delete char 1 to 9 of txtreturn it & "," & ms & return & txtend ifend mailStatus----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNM_MAIL,cNM_MAIL2DELset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put cd fld id 5 into listsort items of listif the hilite of cd btn id 8 thenput "*□DELete" into action1put "1" into action2elseput "*□SAVe" into action1put "2" into action2end ifif MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"put MacroGoMail() after cNM_MAILend ifputVariableName "cNM_MAIL2DEL"--if list <> empty thenput empty into cNM_MAIL2DELput the number of items of list into nrepeat with r = 1 to nput nextLabel() into label1put item r of list into mailIDget mailIDdelete char 1 to 3 of mailIDif char 1 of it is "D" thenput "m: ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ" && mailID & return &ﾂｬ"s:DELete " & mailID & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":ﾃ･ﾃ偲ﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥 ﾃｼ" & return &ﾂｬ"s:1^m" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 1" & return after cNM_MAIL2DELelseput "m: ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪM" && mailID & return after cNM_MAIL2DELif char 2 of it is "B" thenput "s:DOWn PROT:BPL " & mailID & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":ﾃ･ﾃ偲ﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥 ﾃｼ" & return &ﾂｬ"s:BMAIL-" & mailID & "^m" & return &ﾂｬ"+:1" & return &ﾂｬ"r:ﾃ❶ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄ﾃｨIﾃｳﾏ\ﾃ❶" & return &ﾂｬ"+:0" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & action2 &"^m" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 1" & return after cNM_MAIL2DELelseput nextLabel() into label2put nextLabel() into label3put "s:REAd " & mailID & "^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^maction:ﾆ" & label1 & ":ﾃ･ﾃ偲ﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥 ﾃｼ" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:" & action1 &"^m" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 3" & return after cNM_MAIL2DELend ifend ifend repeatif MtScanList(cNMvariableList,"cNM_MAIL3REA",,true) is empty thenglobal cNM_MAIL3REAputVariableName "cNM_MAIL3REA"put nextLabel() into label3put "m: ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" & return &ﾂｬ"s:REAd^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label3 & ":^mMAIL>" & return &ﾂｬ"s:E^m" & return & "r:^mMAIL>" & return &ﾂｬlabel3 & ":" & return &ﾂｬ"*: TotalLabel : 1" & return into cNM_MAIL3REAend ifend ifif MtScanList(cNMvariableList,"cNM_MAIL_END",,true) is empty thenglobal cNM_MAIL_ENDputVariableName "cNM_MAIL_END"put "m: ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｩﾃ佚ｯﾂ ﾃｩqﾃ嘉､ﾃ厩ﾃ曳" & return &ﾂｬ"s:LISt^m" & return & "r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 0" & return after cNM_MAIL_ENDend ifend makeMacroon GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_26895.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpanswer "ﾃ嘉ｧﾃ碓IDﾃ嘉､ﾃ厩ﾃ曳ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "OK"if it is "OK" then put empty into bg fld id 22end mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>265</left>
<top>205</top>
<right>312</right>
<bottom>225</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>< ﾃｫSﾃｬoﾃｲ^</name>
<script>on mouseUpget bg fld id 22send "mouseUp it" to cd btn id 9end mouseUp</script>
<script>on mouseUpif the optionKey is down thenopenEditLogelsesend "mouseUp" to cd fld id 17end ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>47</top>
<right>21</right>
<bottom>273</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>146</left>
<top>284</top>
<right>187</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧﾃ ﾃｨﾃｺ</name>
<script>on mouseUpget word 2 of the selectedLine of cd fld id 1if it is empty thenbeepanswer "ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃIDﾃﾂｻﾃﾂｫﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"elseselectedAddList itend ifend mouseUpon changeAdd addList,txt,prevName,s,m,p,iset the cursor to watchif m is "A " thensend "mouseUp" to cd btn id 6else if m is " " or m is "R " then-- answer p && quote & prevName & quote && "ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"-- if it is "Cancel" then exit mouseUpif p is "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" thenput exeGroup(s) into listput item 1 of line 1 of list into xput item 2 of line 1 of list into ydelete line 1 of listif return & "A " is in list thenanswer "ﾃﾂｱﾃﾃε碓ﾃ嘉｣ﾃ [ﾃ益ﾃﾃｷﾃﾃεｬoﾃｲ^ﾃｩwﾃｭﾃ凝ï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then exit changeAddend ifput the number of lines of list into nrepeat with r = n down to 1if r is 1 thenput "D" into char 1 of line r of listput empty into item 2 of line r of listelseif char 1 of line r of list is "A" thendelete line r of listelseput "-" into char 1 of line r of listget item 1 of line r of listdelete char 1 to 2 of itput empty into item (maxItemNum(extTxt(it))) of line r of listend ifend ifend repeatif last char of list is return then delete last char of listput list into line x to y of addListelseput empty into item i of txtput "D " & txt into line s of addListend ifput addList into cd fld id 1select line 0 of cd fld id 1end ifend changeAdd</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>96</left>
<top>284</top>
<right>137</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯﾅ ﾃｧX</name>
<script>on mouseUpget word 2 of the selectedLine of cd fld id 1if it is empty thenbeepanswer "ﾃｯﾅ禿ｧXﾃ竏妥ﾃIDﾃﾂｻﾃﾂｫﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"elseselectedAddList itend ifend mouseUpon changeAdd addList,txt,prevName,s,m,p,iset the cursor to watchput exeGroup(s) into listput item 1 of line 1 of list into xput item 2 of line 1 of list into ydelete line 1 of listif m is "A " thenanswer "ﾃ窶ｹﾃﾃｦﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾂｻﾃﾂ｢ﾃﾃε竕暗ｯﾅ禿ｧXﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津③"exit changeAddelse if m is "D " or m is "- " thenanswer "ﾃｧﾃ古ｨﾃｺﾃｩwﾃｭﾃ凝ï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "OK"if it is "Cancel" then exit changeAddif m is "- " or p is "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" thenput the number of lines of list into nrepeat with r = 1 to nput " " into char 1 of line r of listend repeatput list into line x to y of addListelseput " " into char 1 of line s of addListend ifend ifif item i of txt <> empty then put item i of txt into delse put prevName into dask p && quote & prevName & quote && "ﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with dif it is empty or the result is "Cancel" then exit changeAddif it is prevName then exit changeAddif p is "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" thenif the length of it > 16 thenbeepanswer "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃﾃ陛ｮﾂｺﾃ､p16ﾃｯ竏づｩﾃｶﾃ窶ｹﾃ竕暗竕暗竏妥③"exit changeAddend ifput "[" & putSpace(it,16,"L") & "]" into checkNameif checkName is in addList thenbeepanswer "ﾃｬﾃ佚竏づ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③"exit changeAddend ifelseif p is "FAXﾃｮ窶佚ｧﾃ" thenif char 1 of it <> "F" then put "F" before itif it is prevName then exit changeAddif char 1 to 2 of it <> "F0" or "-" is not in it thenbeepanswer "ﾃｩsﾃ､Oﾃ｣ﾂｫﾃｮ窶佚ﾂｩﾃﾃ：AXﾃｮ窶佚ｧﾃ愿ï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit changeAddend ifput 37 into welse if p is "INET:ID" thenif char 1 to 5 of it <> "INET:" then put "INET:" before itif "@" is not in it or "." is not in it thenbeepanswer "ﾃ韻ﾃ嘉ｬﾃ運ﾃ [ﾃ瑛ﾃ叡ﾃ曳ﾃ嘉 ﾃ [ﾃ嘉｣ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit changeAddend ifput 37 into welse if p is "ID" thenif the length of it <> 8 or char 4 to 8 of it is not a integer thenbeepanswer "IDﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"exit changeAddend ifput 18 into wend ifput putSpace(it,w,"L") into checkNameif checkName is in list thenbeepanswer "ﾃﾂｱﾃﾃε碓ﾃ嘉｣ﾃ [ﾃ益ﾃ窶ｦﾃｬﾃ佚竏" & p & "ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥③"exit changeAddend ifend ifput it into item i of txtput "R " & txt into line s of addListput addList into cd fld id 1select line 0 of cd fld id 1end changeAdd</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <false /> </enabled>
<rect>
<left>196</left>
<top>284</top>
<right>237</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｩﾃ ﾃｨﾂ｡</name>
<script>on mouseUpget word 2 of the selectedLine of cd fld id 1if it is empty thenbeepanswer "ﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃ竏選Dﾃﾂｻﾃﾂｫﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"elseselectedAddList itend ifend mouseUpon changeAdd addList,txt,prevName,s,m,p,iset the cursor to watchif m is " " thenexit changeAddelse if m is "A " then-- answer p && quote & prevName & quote && "ﾃﾃεｬoﾃｲ^ﾃï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"-- if it is "Cancel" then exit changeAddif p is "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" thenput exeGroup(s) into listget line 1 of listdelete line (item 1 of it) to (item 2 of it) of addListelsedelete line s of addListend ifelse if m is "D " or m is "- " then-- answer "ﾃｧﾃ古ｨﾃｺﾃｩwﾃｭﾃ凝ï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "OK"-- if it is "Cancel" then exit changeAddif m is "- " or p is "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" thenput exeGroup(s) into listput item 1 of line 1 of list into xput item 2 of line 1 of list into ydelete line 1 of listput the number of lines of list into nrepeat with r = 1 to nput " " into char 1 of line r of listend repeatput list into line x to y of addListelseput " " into char 1 of line s of addListend ifelse-- answer "ﾃｯﾅ禿ｧXﾃｩwﾃｭﾃ凝ï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "OK"-- if it is "Cancel" then exit changeAddput empty into item i of txtput " " & txt into line s of addListend ifput addList into cd fld id 1select line 0 of cd fld id 1end changeAdd</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpanswer "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃﾃεｯﾅ禿ｧXﾃï｣ｿﾃｫSﾃﾆ津ｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit mouseUpset the cursor to watchput cd fld id 1 into listput the number of lines of list into nrepeat with r = n down to 1get line r of listif char 1 of it is "A" thendelete line r of listelsedelete char 1 to 2 of itput maxItemNum(extTxt(item 1 of it)) into iput empty into item i of itput " " & it into line r of listend ifend repeatput list into cd fld id 1select line 0 of cd fld id 1end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put readLogFile2("ﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ ID "," (1:ﾃ ﾃ催ｳﾃｳﾃｯ¥ﾃｩﾂｶﾃ①2:ﾃｫIﾃｫï｣ｿﾃｯ¥ﾃｩﾂｶﾃ①E:ﾃｨIﾃｳﾏ\)",filePath,,,1) into theLogif theLog <> "Cancel" thenput line 2 of theLog into line 2 of cd fld id 2delete line 1 to 2 of theLogif theLog <> empty thenput cd fld id 1 into oldListput empty into listput empty into groupListput the number of lines of theLog into lnset the cursor to watchrepeat with r = 1 to lnput "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ愿①" & r && "/" && lnget divTxt(line r of theLog)if last item of it is 3 thenput " [" & putSpace(item 1 of it,16,"L") & "] ," & return after listput IDFAX(item 2 of it,item 3 of it) & return after listput 2 into iput item 1 of it & return after groupListelseput IDFAX(item 1 of it,item 2 of it) & return after listput 1 into iend ifput MtScanList(oldList,item i of it) into lif l <> empty thenget line (item 1 of l) of oldListdelete char 1 to 2 of itput maxItemNum(extTxt(it)) into wput item (w - 2) of it into name1get item (w - 1) of itif "ﾃ⑿ﾃｮﾃ津･ﾋﾃ､Jﾃ⒀" is in item 2 of last line of list thenif "ﾃ⑿ﾃｮﾃ津･ﾋﾃ､Jﾃ⒀" is not in name1 and name1 <> " " thenget name1end ifelse if " " & item 2 of last line of list is item 1 of last line of list and it is " " then get name1if it <> item (w - 2) of last line of list then put it into item (w - 1) of last line of listend ifend repeatput list into theLogput theLog into cd fld id 1put groupList into cd fld id 22groupUpdate groupListend ifLoadCard 26895if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 26895,trueend ifend ifhide msgend mouseUpfunction IDFAX addID,addNAMEif "INET:" is in addID or (char 1 of addID is "F" and "-" is in addID) thenreturn " " & putSpace(addID,37,"L") & ", ,"elsereturn " " & putSpace(addID,18,"L") & "," & putSpace(addNAME,18,"L") & ", ,"end ifend IDFAXon groupUpdate groupListset the cursor to watchput bg fld id 12 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ [ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｫﾃｳﾃｪM" into listput the number of lines of groupList into nrepeat with r = n down to 1get line r of groupListget putSpace(it & tab,20,"L") & "ﾃ①ﾃ⒣\｢ﾃ①"put it into line r of groupListif it is not in list then put it & return before listend repeatput MtScanList(list,"ﾃ①ﾃ⒣\｢ﾃ①") into gListput the number of lines of gList into nrepeat with r = n down to 1put item 1 of line r of gList into lget line l of listif it is not in groupList then delete line l of listend repeatput list into bg fld id 12 of cd 1 of bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ [ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｫﾃｳﾃｪM"put list into bg fld id 12 of cd 1 of bg "ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｬ]ﾃｫﾃｳ"end groupUpdatefunction divTxt txtput the number of words of txt into nput 1 into srepeat with r = 1 to nget word r of txtif (the length of it is 8 and char 1 to 3 of it is not a integer and char 4 to 8 of it is a integer) or (char 1 of it is "F" and "-" is in it) or ("@" is in it and "." is in it) thenput r into sexit repeatend ifend repeatif s is 1 thenreturn word 1 of txt & "," & word 2 to n of txt & ",2"elsereturn word 1 to (s - 1) of txt & "," & word s of txt & "," & word (s + 1) to n of txt & ",3"end ifend divTxt</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>23</left>
<top>284</top>
<right>79</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬoﾃ①ﾃｲ^</name>
<script>on mouseUp IDHandleput cd fld id 1 into addListif IDHandle is empty thenput word 2 of the selectedLine of cd fld id 1 into sif s is empty then put 1 into sput exeGroup(s) into listif list <> empty thenput line 2 of list into txtput char 1 to 2 of txt into mdelete char 1 to 2 of txtput extTxt(item 1 of txt) into gNamedelete char 1 of gNamedelete last char of gNameput extTxt(gName) into gNameelseput empty into gNameend ifget InputDialog("ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃｬoﾃｲ^","ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ,ID / Internet (INET:) / FAXﾃｮ窶佚ｧﾃ (Fxxx-xxx-xxxx),ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｱﾂｺﾃ⑿ﾃｨﾂｻﾃｳ邃｢ﾃ｢ﾂｬﾃ⒀",gName,"OK,Cancel,ﾃ ﾃ催､ﾃ｡ﾃｬoﾃｲ^")put line 4 of it & "," & line 5 of it into IDHandleput line 3 of it into gNameif line 2 of it is "Cancel" thenexit mouseUpelse if line 2 of it is "ﾃ ﾃ催､ﾃ｡ﾃｬoﾃｲ^" thenaddFileListexit to hyperCardend ifelseput cd fld id 14 into gNameend ifif the length of gName > 16 or gName is empty thenbeepanswer "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｮﾂｺﾃ､pﾃ竕16ﾃｯ竏づｩﾃｶﾃ窶ｹﾃ竕暗⒀"exit mouseUpend ifset the cursor to watchput groupList() into gListput the number of lines of gList into Gnput "[" & putSpace(gName,16,"L") & "]" into groupNameput MtScanList(addList,groupName) into Lif L <> empty thenput exeGroup(item 1 of L) into listput item 1 of line 1 of list into xput item 2 of line 1 of list into ydelete line 1 of listif char 1 of list is "D" thenanswer quote & gName & quote && "ﾃﾃεｧﾃ古ｨﾃｺﾃｩwﾃｭﾃ凝ï｣ｿﾃｩﾃ甘ﾃ凝ｨﾂ｡ﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Cancel" or "OK"if it is "Cancel" then exit mouseUpput the number of lines of list into nrepeat with r = 1 to nput " " into char 1 of line r of listend repeatend ifelseput empty into listend ifput the number of lines of addList into addNput delNum() into Dnput the number of lines of IDHandle into nrepeat with r = 1 to nget line r of IDHandleput item 1 of it into UserIDput item 2 of it into Handleif UserID is empty then next repeatif "-" is in UserID and "@" is not in UserID thenif char 1 of UserID <> "F" then put "F" before UserIDelse put "F" into char 1 of UserIDput UserID into cIDput 0 into cnrepeat until "-" is not in cIDput offset("-",cID) into xnadd 1 to cndelete char 1 to xn of cIDend repeatif cn < 2 thenbeepanswer "FAXﾃｮ窶佚ｧﾃ愿ﾃ陛ｩsﾃ､Oﾃ｣ﾂｫﾃｮ窶佚ﾂｩﾃﾃﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifput "FAXﾃｮ窶佚ｧﾃ" into pput 37 into welse if "@" is in UserID and "." is in UserID thenif char 1 to 5 of UserID <> "INET:" then put "INET:" before UserIDelse put "INET:" into char 1 to 5 of UserIDput "INET:ID" into pput 37 into welse if "." is in UserID thenput "ﾃ瑛ﾃ [ﾃ嘉ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩" into pput 18 into welseif checkID(UserID) is false thenbeepanswer "IDﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"next repeatend ifput upperLower(UserID) into UserIDput "ID" into pput 18 into wend ifput putSpace(UserID,w,"L") into checkNameif checkName is in list then-- beep-- answer quote & UserID & quote && "ﾃﾂｱﾃﾃ" & p & "ﾃﾃ陛ｬoﾃｲ^ﾃｧﾅ禿窶ｺﾃ竕暗竏妥③"next repeatend ifadd 1 to addNif (addN - Gn - Dn) > 300 thenbeepanswer "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃ窶ｦﾃｬoﾃｲ^ﾃ竕暗ﾂｴﾃﾃ暗ﾃεﾃ300ﾃ･ﾃｨﾃ窶ｹﾃ竕暗竕暗竏妥③"exit repeatelseif w is 18 thenput return & "A " & checkName & ", ," & putSpace(Handle,18,"L") & "," after listelseput return & "A " & checkName & "," & putSpace(Handle,18,"L") & "," after listend ifend ifend repeatif L is empty thenif list <> empty thenif last char of addList <> return and addList <> empty then put return after addListput "A " & groupName & " ," & list after addlistend ifelseput list into line x to y of addListend ifput addList into cd fld id 1end mouseUpon addFileListanswer file "IDﾃ嘉､ﾃ厩ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & quote & "[ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ]" & quote & " & return" & return & quote & "ID,ﾃｱﾂｺﾃｫO" & quote & " & return" of type textif it is empty then exit addFileListset the cursor to watch-- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺput it into filePathput empty into idListopen file filePathrepeatread from file filePath for 16384if it is empty then exit repeatput it after idListend repeatclose file filePathput empty into listput the number of lines of idList into nrepeat with r = 1 to nset cursor to busyget line r of idListif char 1 of it is "[" and last char of it is "]" thenif list <> empty then send "mouseUp list" to medelete char 1 of itdelete last char of itget extTxt(it)put omitText(it,16) into cd fld id 14put empty into listelseput it & return after listend ifend repeatif list <> empty then send "mouseUp list" to meend addFileList</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>254</left>
<top>284</top>
<right>329</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｱﾂｺﾃｬﾂｸﾃｳﾃ</name>
<script>on mouseUpput cd fld id 1 into addListput word 2 of the selectedLine of cd fld id 1 into sif s is empty thenset the cursor to watchput bg fld id 22 into IDListput the number of lines of addList into nrepeat with r = 1 to nput "ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｩﾃ甘ﾃ凝ｧﾃｻﾃ窶ｺﾃｭﾃ愿①" & r && "/" && nget line r of addListdelete char 1 to 2 of itput extTxt(item 1 of it) into IDNameput extTxt(item 2 of it) into UserNameput MtScanList(IDList,IDName,,true) into lif l <> empty thenput item 2 of line (item 1 of last line of l) of IDList into Handleif Handle <> UserName and item 3 of it is " " thenput putSpace(Handle,18,"L") into item 3 of line r of addListend ifend ifend repeatput addList into cd fld id 1hide msgelseput line s of addList into txtput char 1 to 2 of txt into mdelete char 1 to 2 of txtput maxItemNum(extTxt(item 1 of txt)) - 1 into iif i is 1 thenbeepexit mouseUpend ifput extTxt(item i of txt) into prevNameask "ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with prevNameif the result is "Cancel" then exit mouseUpget omitText(it,16)put putSpace(it,18,"L") into item i of line s of addListput addList into cd fld id 1end ifselect line 0 of cd fld id 1end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>423</left>
<top>30</top>
<right>501</right>
<bottom>46</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>IDﾃ嘉､ﾃ厩ﾃ曳ﾃｯ¥ﾃｩﾂｶ</name>
<script>on mouseUplock screenif the rect of cd fld id 1 is "8,47,505,273" thenput "bg fld id 22" into fldNameset the rect of cd fld id 1 to "8,47,260,273"set the rect of cd fld id 2 to "9,30,245,46"set the rect of bg btn id 26 to "223,29,315,314"hide cd btn id 7hide cd btn id 8show cd fld id 12show cd fld id 14show cd fld id 15set the hilite of cd btn id 11 to trueelseput "cd fld id 1" into fldNameset the rect of cd fld id 1 to "8,47,505,273"set the rect of cd fld id 2 to "9,30,504,46"set the rect of bg btn id 26 to "223,29,504,314"show cd btn id 7show cd btn id 8hide cd fld id 12hide cd fld id 14hide cd fld id 15set the hilite of cd btn id 11 to falseend ifsetScrollFld fldNameend mouseUp</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>86</left>
<top>284</top>
<right>184</right>
<bottom>305</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpset the cursor to watchput cd fld id 1 into addListput word 2 of the selectedLine of cd fld id 1 into sif s is empty then put 1 into sput exeGroup(s) into listput line 2 of list into txtput char 1 to 2 of txt into mdelete char 1 to 2 of txtput extTxt(item 1 of txt) into groupNamedelete char 1 of groupNamedelete last char of groupNameput extTxt(groupName) into groupNameput groupName into cd fld id 14end mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>183</left>
<top>284</top>
<right>330</right>
<bottom>305</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>185</left>
<top>286</top>
<right>328</right>
<bottom>303</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｬoﾃｲ^ﾃｪﾃ</name>
<script></script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>103</left>
<top>63</top>
<right>401</right>
<bottom>253</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>80</top>
<right>399</right>
<bottom>222</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃｨﾃ禿ｯﾃ</name>
<script>on mouseUplock screenif the visible of cd fld id 17 thenhide cd fld id 17hide cd fld id 18hide cd fld id 19hide cd btn id 20hide cd btn id 21elseif the shiftKey is up thenput "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃ厩ﾃ鵜ﾃ嘉嘉嘉ｬﾃｭﾃ"send "mouseUp" to cd fld id 18hide msgend ifshow cd fld id 17show cd fld id 18show cd fld id 19show cd btn id 20show cd btn id 21end ifunlock screen with dissolve fastend mouseUp</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>65</top>
<right>399</right>
<bottom>81</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput empty into infoput cd fld id 1 into addListput MtScanList(addList,"] ") into gListput the number of lines of gList into n1repeat with g = 1 to n1set the cursor to busyget item 1 of line g of gListput exeGroup(it) into IDlistdelete line 1 of IDlistput 0 into IDnput 0 into Fnput 0 into INETnput 0 into Dnput 0 into Rnput 0 into Anput the number of lines of IDlist into n2repeat with r = 1 to n2set the cursor to busyget line r of IDlistput char 1 to 2 of it into mdelete char 1 to 2 of itput extTxt(item 1 of it) into prevNameput maxItemNum(prevName) into iif i is 2 thendelete char 1 of prevNamedelete last char of prevNameput putSpace(g,3,"R") & ":" && m & prevName & ", " after infoelseif char 1 of prevName is "F" and "-" is in prevName thenadd 1 to Fnelse if "@" is in prevName and "." is in prevName thenadd 1 to INETnelseadd 1 to IDnend ifif m is "D " or m is "- " thenadd 1 to Dnelse if m is "R " thenadd 1 to Rnelse if m is "A " thenadd 1 to Anend ifend ifend repeatput putSpace(IDn,3,"R") & putSpace(Fn,5,"R") & putSpace(INETn,5,"R") & putSpace((n2 - 1),6,"R") &ﾂｬputSpace(Dn,6,"R") & putSpace(Rn,5,"R") & putSpace(An,5,"R") & return after infoend repeatput 0 into IDnput 0 into Fnput 0 into INETnput 0 into Tnput 0 into Dnput 0 into Rnput 0 into Anput the number of lines of info into nrepeat with r = 1 to nget item 2 of line r of infoadd word 1 of it to IDnadd word 2 of it to Fnadd word 3 of it to INETnadd word 4 of it to Tnadd word 5 of it to Dnadd word 6 of it to Rnadd word 7 of it to Anend repeatput " ﾃｧﾃ｡ﾃ･v " & putSpace(IDn,3,"R") & putSpace(Fn,5,"R") & putSpace(INETn,5,"R") & putSpace(Tn,6,"R") &ﾂｬputSpace(Dn,6,"R") & putSpace(Rn,5,"R") & putSpace(An,5,"R") & return into addNif Dn > 0 then put " ﾃｧﾃ古ｨﾃｺﾃ･窶榲ｧﾃ｡ﾃ･v " & putSpace((Tn - Dn),3,"R") after addNput info into cd fld id 17put addN into cd fld id 19end mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>105</left>
<top>221</top>
<right>399</right>
<bottom>251</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>67</top>
<right>394</right>
<bottom>79</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23110</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 23110end ifend mouseStillDownon mouseUplock screenset the icon of me to 23110set the cursor to watchif the rect of cd fld id 17 is "56,80,446,222" thenset the loc of cd btn id 21 to 388,73set the rect of cd fld id 17 to 105,80,399,222set the rect of cd fld id 18 to 105,65,399,81set the rect of cd fld id 19 to 105,221,399,251set the rect of cd btn id 20 to 103,63,401,253unLock screen with iris close fastelseset the loc of cd btn id 21 to 435,73set the rect of cd fld id 17 to 56,80,446,222set the rect of cd fld id 18 to 56,65,446,81set the rect of cd fld id 19 to 56,221,446,251set the rect of cd btn id 20 to 54,63,448,253unLock screen with iris open fastend ifend mouseUp</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>355</left>
<top>98</top>
<right>505</right>
<bottom>169</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ADDgroupList</name>
<script></script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>303</top>
<right>20</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the locktext of cd fld id 1 to not(the locktext of cd fld id 1)end mouseUp</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ [ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｫﾃｳﾃｪM</name>
<script>on mouseUpvisual effect dissolve very fastgo to bg "ﾃ頴ﾃ韻ﾃ永ﾃ嘉､ﾃ [ﾃ嘉 ﾃ [ﾃ嘉｣ﾃｫﾃｳﾃｪM"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text>10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text> ID / FAX ﾃｮ窶佚ｧﾃ ﾃｱﾂｺﾃｫO ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｱﾂｺ ﾃｯﾅ禿ｧXﾃ･窶</text>
</content>
<content>
<layer>card</layer>
<id>15</id>
<text>ﾃｬoﾃｲ^ﾃｪﾃ甘碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃ⑦</text>
</content>
<content>
<layer>card</layer>
<id>18</id>
<text> ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ ID FAX INET ﾃ･v D R A</text>
</content>
<name>10. ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑</name>
<script>on closeCardif the rect of cd fld id 1 <> "8,47,505,273" then send "mouseUp" to cd btn id 11if the visible of cd fld id 17 then send "mouseUp" to cd fld id 17if the locktext of cd fld id 1 is false then send "mouseUp" to cd btn id 23select line 0 of cd fld id 1enabledBtn1pass closeCardend closeCardon commandKeyDown whichKeyif the hilite of cd btn id 11 and whichKey is "f" thensendBtn "bg btn id 24"elsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyif whichKey = 1 then -- A "ﾃｬoﾃｲ^"sendBtn "cd btn id 9"else if whichKey = 4 and the enabled of cd btn id 4 then -- D "ﾃｧﾃ古ｨﾃｺ"sendBtn "cd btn id 4"else if whichKey = 18 and the enabled of cd btn id 5 then -- R "ﾃｯﾅ禿ｧX"sendBtn "cd btn id 5"else if whichKey = 3 and the enabled of cd btn id 6 then -- C "ﾃｩﾃ甘ｨﾂ｡"sendBtn "cd btn id 6"else if whichKey = 8 then -- H "ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃｬﾂｸﾃｳﾃ"sendBtn "cd btn id 10"else if whichKey = 9 then -- I "ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃｬoﾃｲ^ﾃｨﾃ禿ｯﾃ"send "mouseUp" to cd fld id 17else if whichKey = 12 then -- L "IDﾃ嘉､ﾃ厩ﾃ曳ﾃｯ¥ﾃｩﾂｶ"send "mouseUp" to cd btn id 11else if the visible of cd btn id 21 and whichKey = 47 then -- /send "mouseUp" to cd btn id 21elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into line 2 of cd fld id 2put empty into cd fld id 14put empty into cd fld id 17put empty into cd fld id 19put empty into cd fld id 22end clearDataon enabledBtn1if the short id of this cd is 6344 thenget (the selectedText of cd fld id 1 <> empty)set the enabled of cd btn id 4 to itset the enabled of cd btn id 5 to itset the enabled of cd btn id 6 to itend ifend enabledBtn1----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNM_MAILset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"if MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"put MacroGoMail() after cNM_MAILend ifput "m: ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑" & return &ﾂｬ"s:ADDress^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return after cNM_MAILput empty into addMacro1put empty into addMacro2put empty into addMacro3put cd fld id 1 into addListput 1 into gnput MtScanList(addList,"] ") into gListput the number of lines of gList into n1put (the number of lines of addList) - n1 - addNum() into lnrepeat with g = 1 to n1set the cursor to busyget item 1 of line g of gListput exeGroup(it) into IDlistdelete line 1 of IDlistput empty into listput the number of lines of IDlist into n2put 0 into tnrepeat with r = 1 to n2set the cursor to busyget line r of IDlistput char 1 to 2 of it into mdelete char 1 to 2 of itput extTxt(item 1 of it) into prevNameput maxItemNum(prevName) into iif i is 2 thendelete char 1 of prevNamedelete last char of prevNameput extTxt(prevName) into groupNameend ifif m is "D " thenput macro1(gn,tn,extTxt(prevName),groupName) after addMacro1if tn is 0 thensubtract 1 from gnend ifelseif m is "R " thenif tn is 0 thenput "ﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ (" into pelseput "ID (" into pend ifput extTxt(item i of it) into newNameput macro2(gn,tn,extTxt(prevName),newName,p,groupName) after addMacro2if tn is 0 thenput newName into groupNameend ifelse if m is "A " thenif tn > 0 then put prevName & return after listend ifadd 1 to tnend ifend repeatif list <> empty thenput macro3(groupName,list,ln,groupName) after addMacro3add the number of lines of list to lnend ifadd 1 to gnend repeatput addMacro1 & addMacro2 & addMacro3 after cNM_MAILput "s:4^m" & return & "r:^mﾃ ﾃ" & return & "s:1^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return & "s:E^m" & return & "r:^mMAIL>" & return &ﾂｬ"*: TotalLabel : 0" & return after cNM_MAILend makeMacrofunction macro1 gn,tn,prevName,groupNameput nextLabel() into label1put nextLabel() into label2return "*: ﾃｧﾃ古ｨﾃｺ" & return &ﾂｬ"s:3^m" & return &ﾂｬ"*: ﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃ⑦" & groupName & return &ﾂｬ"r:^mﾃ ﾃ" & return & "s:" & gn & "^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return & "s:" & tn & "^m" & return &ﾂｬ"r:" & prevName & "ﾆ" & label1 & ":^mﾃｧﾃ古ｨﾃｺ (" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:2^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 2" & returnend macro1function macro2 gn,tn,prevName,newName,p,groupNameput nextLabel() into label1put nextLabel() into label2return "*: ﾃｯﾅ禿ｧX" && quote & prevName & quote & " --> " & quote & newName & quote & return &ﾂｬ"s:2^m" & return &ﾂｬ"*: ﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃ⑦" & groupName & return &ﾂｬ"r:^mﾃ ﾃ" & return & "s:" & gn & "^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return & "s:" & tn & "^m" & return &ﾂｬ"r:" & prevName & "ﾆ" & label1 & ":^m" & p & return &ﾂｬ"r:^mﾃ⑦" & return & "s:" & newName & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":^mﾃ ﾃｼ" & return &ﾂｬ"s:1^m" & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 2" & returnend macro2function macro3 groupName,list,ln,groupNameput "*: ﾃｬoﾃｲ^" & return &ﾂｬ"s:1^m" & return &ﾂｬ"*: ﾃｬﾃ佚ｯﾃ津碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺﾃ⑦" & groupName & return &ﾂｬ"r:^mﾃ⑦" & return & "s:" & groupName & "^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return & "r:^mﾃ⑦" & return into macroput the number of lines of list into nput empty into label1put empty into label2repeat with r = 1 to nget line r of listif (ln + r) > 299 thenif label1 is empty thenput nextLabel() into label1put nextLabel() into label2end ifput "s:" & it & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":^mﾃ ﾃｼ" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label2 & ":^mﾃ❶ﾃ 竏づｪﾃ蟹Dﾃｧ竕暗ｨIﾃｬoﾃｲ^ﾃ❶" & return after macroelseput nextLabel() into label3put "s:" & it & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label3 & ":^mﾃ ﾃｼ" & return &ﾂｬ"s:1^m" & return &ﾂｬlabel3 & ":" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"*: TotalLabel : 1" & return after macroend ifend repeatif (ln + r) > 299 thenput label1 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 2" & return after macroelseput "s:^m" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 0" & return after macroend ifreturn macroend macro3-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput cd fld id 1 into addListput the number of lines of addList into addNput the number of lines of MtScanList(addList,"] ") into Gnif (addN - Gn - delNum()) > 300 thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃ陰ﾃ栄ﾃ嘉･ﾃ厩ﾃ疫ﾃ叡ﾃ丑ﾃﾃεｬoﾃｲ^ﾃｨ窶榲･ﾂｿﾃï｣ｿﾃｭﾂ･ﾃﾂｶﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③" & returnelsereturn emptyend ifend dataCheckfunction delNumput cd fld id 1 into addListput 0 into Dnput MtScanList(addList,"D ") & return & MtScanList(addList,"- ") into DListput the number of lines of DList into nrepeat with r = 1 to nget line (item 1 of line r of DList) of addListif (char 1 of it is "D" or char 1 of it is "-") and char 1 to 3 of it <> "D [" then add 1 to Dnend repeatreturn Dnend delNumfunction addNumput cd fld id 1 into addListput 0 into Anput MtScanList(addList,"A ") into listput the number of lines of list into nrepeat with r = 1 to nget line (item 1 of line r of list) of addListif char 1 of it is "A" and char 1 to 3 of it <> "A [" then add 1 to Anend repeatreturn Anend addNumfunction extTxt txtput the number of words of txt into nreturn word 1 to n of txtend extTxtfunction exeGroup sput cd fld id 1 into addListif addList is empty then return emptyput the number of lines of addList into nput n into p2put MtScanList(addList,"] ") into GListput the number of lines of GList into Gnrepeat with r = 1 to Gnget item 1 of line r of GListif it > s thenput (it - 1) into p2exit repeatelse if r = Gn thenput it into p1put n into p2elseput it into p1end ifend repeatreturn p1 & "," & p2 & return & line p1 to p2 of addListend exeGroupfunction groupListput cd fld id 1 into addListput empty into groupListput MtScanList(addList,"] ") into GListput the number of lines of GList into Gnrepeat with r = 1 to Gnget line (item 1 of line r of GList) of addListdelete char 1 to 2 of itput extTxt(item 1 of it) into groupNamedelete char 1 of groupNamedelete last char of groupNameput extTxt(groupName) & return after groupListend repeatreturn groupListend groupListon selectedAddList sput cd fld id 1 into addListput line s of addList into txtput char 1 to 2 of txt into mdelete char 1 to 2 of txtput extTxt(item 1 of txt) into prevNameput the number of items of txt into nif n < 3 and char 1 of prevName is "[" and last char of prevName is "]" thenput 2 into idelete char 1 of prevNamedelete last char of prevNameput extTxt(prevName) into prevNameput "ﾃ碓ﾃ嘉｣ﾃ [ﾃ益ﾃｱﾂｺ" into pelseif char 1 of prevName is "F" and "-" is in prevName thenput "FAXﾃｮ窶佚ｧﾃ" into pput 3 into ielse if "@" is in prevName and "." is in prevName thenput "INET:ID" into pput 3 into ielseput "ID" into pput 4 into iend ifend ifsend "changeAdd addList,txt,prevName,s,m,p,i" to the targetend selectedAddListfunction maxItemNum addIDif char 1 of addID is "[" and last char of addID is "]" thenreturn 2else if (char 1 of addID is "F" and "-" is in addID) or ("@" is in addID and "." is in addID) thenreturn 3elsereturn 4end ifend maxItemNumon GComBtnif the visible of cd btn id 8 thenreturn "cd btn id 8"elsereturn "bg btn id 23"end ifend GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_26345.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meexit mouseUpend ifif the optionKey is down then put empty into meelse delete the selectedLine of meselect line 0 of meend mouseUp</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>117</left>
<top>284</top>
<right>173</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｩﾃ ﾃｱﾂｺﾃｬﾂｸﾃｳﾃ</name>
<script>on mouseUpget InputDialog("ﾃｩﾃ ﾃｱﾂｺ ﾃｬﾂｸﾃｳﾃ","ﾃｩﾃ ﾃｱﾂｺ / ID",,"OK,Cancel")put line 3 of it into IDNameif checkID(IDName) then put upperLower(IDName) into IDNameif line 2 of it is "Cancel" or IDName is empty then exit mouseUpif MtScanList(cd fld id 1,IDName,,true) is empty thenput IDName & return after cd fld id 1end ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>39</left>
<top>284</top>
<right>95</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput empty into cd fld id 1end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>208</left>
<top>288</top>
<right>311</right>
<bottom>304</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 1 to the hilite of meend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>226</left>
<top>81</top>
<right>289</right>
<bottom>99</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧ竕暗ｪVﾃｨﾃ｡</name>
<script>on mouseUpset the hilite of cd btn id 7 to falseset the hilite of me to trueend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>226</left>
<top>100</top>
<right>289</right>
<bottom>118</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬoﾃｲ^ﾃｨﾃ｡</name>
<script>on mouseUpset the hilite of cd btn id 6 to falseset the hilite of me to trueend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>select stack...</name>
<script>on mouseUpget the optionKeyif it is up then go to stack "select stack..." in a new window without dialogif the result is "No such stack" or it is down thenget setGoSTbtn ("select stack...")if it is empty then exit mouseUpgo to stack (item 3 of it) in a new windowelseif the result <> empty then go to stack "select stack..."end ifend mouseUp---------- ﾃ ﾂｶ ﾃｧﾃ古ｨﾃｺﾃ⑥ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ竕暗竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑩ ----------"select stack..."</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> 9. ﾃ｢ﾃ氾 ﾄｱﾃ･ﾃｼﾃｧﾄｱ</text>
</content>
<name> 9. ﾃ｢ﾃ氾 ﾄｱﾃ･ﾃｼﾃｧﾄｱ</name>
<script>on opencardhide bg btn id 26pass opencardend opencardon closeCardset the lockText of cd fld id 1 to trueset the hilite of cd btn id 4 to trueshow bg btn id 26pass closeCardend closeCardon commandKeyDown whichKeyif whichKey is "f" thensendBtn "bg btn id 24"elsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyif whichKey = 1 then -- A "ﾃｩﾃ ﾃｱﾂｺﾃｬﾂｸﾃｳﾃ"sendBtn "cd btn id 2"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1if cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" then put empty into bg fld id 22send "mouseUp" to cd btn id 6set the hilite of bg btn id 28 to trueset the hilite of bg btn id 29 to falseset the hilite of bg btn id 30 to trueset the hilite of bg btn id 31 to falseset the hilite of bg btn id 32 to falseend clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMnewMacroset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put "m: ﾃ｢ﾃ氾 ﾄｱﾃ･ﾃｼﾃｧﾄｱ" & return &ﾂｬ"s:GO MEMBERS^m" & return & "r:^mﾃ ﾃ" & return into macroput cd fld id 1 into listrepeat with r = 1 to the number of lines of listget line r of listif it is empty then next repeatput item 1 of it into n1put item 2 of it into n2if n2 is empty then put n1 into n2put "m: ﾃ⒃" & n2 & "ﾃ⒄" & return after macroif length(n1) is 8 and char 4 to 8 of n1 is a integer thenput macro1(n1) after macroelseput macro2(n1) after macroend ifend repeatput "s:E^m" & return & "r:^mﾃ ﾃ" & return after macroput "*: TotalLabel : 0" & return after macroput macro after cNMnewMacroput empty into cd fld id 1end makeMacrofunction macro1 nput nextLabel() into label1return "*: IDﾃ･ﾃｼﾃｧﾄｱ" & return &ﾂｬ"s:1^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:" & n & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":^mﾃ ﾃ" & return &ﾂｬlabel1 & ":" & return & "s:^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 1" & returnend macro1function macro2 nput nextLabel() into label1put nextLabel() into label2if the hilite of cd btn id 6 then put 1 into belse put 2 into breturn "*: ﾃｩﾃ ﾃｱﾂｺﾃ･ﾃｼﾃｧﾄｱ" & return &ﾂｬ"s:2^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:" & n & "^m" & return &ﾂｬ"r:ﾃ ﾃｼﾃｬﾂｸﾃｳﾃ陛映ﾃ [ﾃ運ﾃ烏ﾃ嘉｢ﾃ [ﾃ ﾃｼﾆ" & label1 & ":^mﾃ⑦" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:^m" & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel1 & ":" & return &ﾂｬ"s:" & b & "^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label2 & ":ﾃ ﾃｼﾃ､Yﾃｬﾃｱﾃ竏妥ﾃ" & return &ﾂｬ"s:^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: TotalLabel : 2" & returnend macro2-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckif cd fld id 1 is empty thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｩﾃ ﾃｱﾂｺ / IDﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & returnelsereturn emptyend ifend dataCheckon GComBtnreturn "bg btn id 23"end GComBtnon scrFldsetScrollFld "bg fld id 22"end scrFld</script>
</card>
card_25751.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meexit mouseUpend ifif the optionKey is down then put empty into meelse delete the selectedLine of meselect line 0 of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>117</left>
<top>284</top>
<right>173</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>IDﾃｬﾂｸﾃｳﾃ</name>
<script>on mouseUpget InputDialog("ID ﾃｬﾂｸﾃｳﾃ","ID,ﾃｱﾂｺﾃｫOﾃ⑴ﾃ穎ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ⑿ﾃｨﾂｻﾃｳ邃｢ﾃ｢ﾂｬﾃ⒀",,"OK,Cancel")put upperLower(line 3 of it) into UserIDput line 4 of it into Handleif line 2 of it is "Cancel" or UserID is empty then exit mouseUpif UserID is not in cd fld id 3 thenput UserID & "," & Handle & return after cd fld id 3end ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>39</left>
<top>284</top>
<right>95</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput empty into cd fld id 3end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>208</left>
<top>288</top>
<right>311</right>
<bottom>304</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 3 to the hilite of meend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>select stack...</name>
<script>on mouseUpget the optionKeyif it is up then go to stack "select stack..." in a new window without dialogif the result is "No such stack" or it is down thenget setGoSTbtn ("select stack...")if it is empty then exit mouseUpgo to stack (item 3 of it) in a new windowelseif the result <> empty then go to stack "select stack..."end ifend mouseUp---------- ﾃ ﾂｶ ﾃｧﾃ古ｨﾃｺﾃ⑥ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ竕暗竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑩ ----------"select stack..."</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> 8. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</text>
</content>
<name> 8. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on opencardhide bg btn id 26pass opencardend opencardon closeCardset the lockText of cd fld id 3 to trueset the hilite of cd btn id 6 to trueshow bg btn id 26pass closeCardend closeCardon commandKeyDown whichKeyif whichKey is "f" thensendBtn "bg btn id 24"elsepass commandKeyDownend ifend commandKeyDownon controlKey whichKeyif whichKey = 1 then -- A "IDﾃｬﾂｸﾃｳﾃ"sendBtn "cd btn id 4"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenif cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" then put empty into bg fld id 22put empty into cd fld id 3set the hilite of bg btn id 28 to trueset the hilite of bg btn id 29 to falseset the hilite of bg btn id 30 to trueset the hilite of bg btn id 31 to falseset the hilite of bg btn id 32 to falseend clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNMPROFILEset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"-- GO PROFILEif MtScanList (cNMvariableList,"cNMPROFILE",,true) is empty thenput empty into cNMPROFILEputVariableName "cNMPROFILE"get MacroGoPROF()put it after cNMPROFILEend ifput "m: ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return after cNMPROFILEput cd fld id 3 into listrepeat with r = 1 to the number of lines of listget line r of listif it is empty then next repeatput "m: ﾃ⒃" & item 2 of it & "ﾃ⒄" & return &ﾂｬ"s:PROF " & item 1 of it & "^m" & return &ﾂｬ"r:^mﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (" & return & "r:^mﾃ ﾃ" & return after cNMPROFILEend repeatput "s:E^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"s:SET PAGe ON^m" & return & "r:^mﾃ ﾃ" & return after cNMPROFILEput "*: TotalLabel : 0" & return after cNMPROFILEput empty into cd fld id 3end makeMacro-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckif cd fld id 3 is empty thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦IDﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & returnelsereturn emptyend ifend dataCheckon GComBtnreturn "bg btn id 23"end GComBtnon scrFldsetScrollFld "bg fld id 22"end scrFld</script>
</card>
card_24606.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldset the hilite of cd btn "ﾃｧﾃ古ｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseput empty into cd fld id 2end closeField</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>30</top>
<right>505</right>
<bottom>46</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpif the optionKey is up then exit mouseUpset the cursor to watchput line 2 of target into filePathif filePath is empty or there is not a file filePath thenget cNifPath()if it <> empty then MtSetDefaultDir itanswer file "_ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type textif it is empty then exit mouseUpput it into filePathend ifopen filePath with editorPath()end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathset the cursor to watchif filePath is empty thenget selectLogFile()if it is empty then exit mouseUpput it into filePathend ifput pathTofile(filePath) into logFileNameput empty into Notice----- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ -----open file filePathget the resultif it <> empty thenbeepput itexit mouseUpend ifput "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"repeatset the cursor to busyread from file filePath for 16384if it is empty then exit repeatif "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1" is in it thenput it into theLogrepeat until "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1" is not in theLogput offset ("ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1",theLog) into pxdelete char 1 to (px + 10) of theLogif return & "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1" is not in theLog thenread from file filePath for 16384if it is empty then exit repeatput it after theLogend ifput offset (return & "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｨﾃ禿ｯﾃ (1",theLog) into pyput char 1 to (py - 1) of theLog into Noticeif Notice <> empty thenputNotice Notice,filePath,logFileNameend ifend repeatend ifend repeatclose file filePathhide msgend mouseUpon putNotice Notice,filePath,logFileNameglobal cNMautoReadput filePath into line 2 of cd fld id 2if "ﾃ❶ﾃｬoﾃｲ^ﾃ､ﾃﾃｳﾏ\ﾃ❶" is in Notice thenput "ﾃ ﾃｼ ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ ﾃ ﾃ ﾃｬoﾃｲ^ ﾃ ﾃ" && logFileName && "ﾃ ﾃｼ" into line 1 of cd fld id 2else if "ﾃｧﾃ古ｨﾃｺ (1:ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return & "ﾃ⑦1" is in Notice thenput "ﾃ ﾃｻ ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ ﾃ ﾃ ﾃｧﾃ古ｨﾃｺ ﾃ ﾃ" && logFileName && "ﾃ ﾃｻ" into line 1 of cd fld id 2else if line 2 of Notice is "ﾃ ﾃ3" thendelete line 1 to 2 of Noticeput offset ("ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ ( 100ﾃｧsﾃ窶ｹﾃ竕",Notice) into pyput char 1 to (py - 1) of Notice into txtif txt <> empty thenput "ﾃ ﾃｼ ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬoﾃｲ^ﾃｧﾅ ﾃ ﾃ ﾃ､mﾃｮF ﾃ ﾃ" && logFileName && "ﾃ ﾃｼ" into line 1 of cd fld id 2elseput "ﾃ ﾃｻ ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｱﾂ｢ﾃｬoﾃｲ^ ﾃ ﾃ ﾃ､mﾃｮF ﾃ ﾃ" && logFileName && "ﾃ ﾃｻ" into line 1 of cd fld id 2end ifput txt into cd fld id 1elseexit putNoticeend ifLoadCard 24606if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 24606,trueend ifend putNotice</script>
<script>on mouseUpset the hilite of cd btn id 13 to falseend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>375</left>
<top>282</top>
<right>400</right>
<bottom>307</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24670</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp-- lock screenput line 2 of cd fld id 2 into filePathput (the optionKey is down) into opif filePath is empty or there is not a file filePath or op thenget postPath()if it <> empty then MtSetDefaultDir itput it & "_ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣" into filePathif there is not a file filePath or op thenanswer file "ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "text"if it is empty then exit mouseUpput it into filePathend ifput filePath into line 2 of cd fld id 2end ifput PathToFile(filePath) into fileNameput fileName into line 1 of cd fld id 2set the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifrepeat 2read from file filePath for 15000put it after theTextend repeatclose file filePathput theText into cd fld id 1set the hilite of cd btn "ﾃｧﾃ古ｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>262</left>
<top>286</top>
<right>311</right>
<bottom>304</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ､mﾃｮF</name>
<script>on mouseUpset the hilite of cd btn id 11 to falseend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> 7. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｪ窶ｺﾃｭﾃ</text>
</content>
<name> 7. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｪ窶ｺﾃｭﾃ</name>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2set the hilite of cd btn "ﾃｧﾃ古ｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseend clearDataon controlKey whichKeyif whichKey = 4 then -- D "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ"sendBtn "cd btn id 10"else if whichKey = 18 then -- R "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ"sendBtn "cd btn id 12"elsepass controlKeyend ifend controlKey----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNMPROFILEset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifif the hilite of cd btn "ﾃ､mﾃｮF" thenput "ﾃ､mﾃｮF" into modeelse if the hilite of cd btn "ﾃｧﾃ古ｨﾃｺ" thenput "ﾃｧﾃ古ｨﾃｺ" into modeelseput "ﾃｬoﾃｲ^" into modeend ifif mode is "ﾃｬoﾃｲ^" thenput UxFormTxt(cd fld id 1,79,true) into theTextput "_ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣" into fileNameput postPath() into postPathput postPath & fileName into filePathput "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"MtWriteFile filePath,theText,EditorCreator()if the result is not empty thenmakeMacroError the result,"ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃﾃεｧ竄ｬﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ [ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③",cdNameend ifput fileName & return & filePath into cd fld id 2-- put "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathsend "mouseUp" to cd btn id 12end ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"-- GO PROFILEif MtScanList (cNMvariableList,"cNMPROFILE",,true) is empty thenput empty into cNMPROFILEputVariableName "cNMPROFILE"get MacroGoPROF()put it after cNMPROFILEend ifif mode is "ﾃｬoﾃｲ^" thenput Macro1(fileName) after cNMPROFILEelse if mode is "ﾃｧﾃ古ｨﾃｺ" thenput Macro2() after cNMPROFILEelse if mode is "ﾃ､mﾃｮF" thenput Macro3() after cNMPROFILEend ifif the marked of cd " 8. ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" is false thenput "s:E^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"s:SET PAGe ON^m" & return & "r:^mﾃ ﾃ" & return after cNMPROFILEend ifput "*: TotalLabel : 0" & return after cNMPROFILEend makeMacrofunction Macro1 fileNamereturn "m: ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｬoﾃｲ^" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E)" & return &ﾂｬ"u:" & fileName & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"*: ﾃｨCﾃｪ竕･ (1:ﾃｨCﾃｪ竕･ﾃ竏妥ﾃ暗①2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"*: ﾃｬoﾃｲ^ (1:ﾃｬoﾃｲ^ﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ ﾃ" & returnend Macro1function Macro2return "m: ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ" & return &ﾂｬ"s:4^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"*: ﾃｧﾃ古ｨﾃｺ (1:ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ ﾃ" & returnend Macro2function Macro3return "m: ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ､mﾃｮF" & return &ﾂｬ"s:3^m" & return & "r:^mﾃ ﾂｨ" & return &ﾂｬ"s:E^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"*: ﾃｬoﾃｲ^ (1:ﾃｬoﾃｲ^ﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃ ﾃ" & returnend Macro3-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckif the hilite of cd btn id 11 or the hilite of cd btn id 13 then return emptyif cd fld id 1 is empty thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥ﾃ邃｢ﾃｪ窶ｺﾃｭﾃ凝竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & returnelse if the number of lines of cd fld id 1 > 100 thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃ益ﾃ嘉ｧﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥ﾃﾃ100 ﾃｧsﾃ窶ｹﾃ竕暗竕暗竏妥③" & returnelsereturn emptyend ifend dataCheck----------on GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_23637.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldset the hilite of cd btn "ﾃ｢ï｣ｿﾃｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseput empty into cd fld id 2end closeField</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>30</top>
<right>505</right>
<bottom>46</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpif the optionKey is up then exit mouseUpset the cursor to watchput line 2 of target into filePathif filePath is empty or there is not a file filePath thenget cNifPath()if it <> empty then MtSetDefaultDir itanswer file "_ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type textif it is empty then exit mouseUpput it into filePathend ifopen filePath with editorPath()end mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchif filePath is empty thenget selectLogFile()if it is empty then exit mouseUpput it into filePathend ifput pathTofile(filePath) into logFileNameput cd fld id 2 into hput empty into cd fld id 2put empty into Notice----- ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ -----open file filePathget the resultif it <> empty thenbeepput itexit mouseUpend ifput "ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"repeatset the cursor to busyread from file filePath for 16384if it is empty then exit repeatif cd fld id 2 is empty thenif return & "ﾃ❶ﾃ･ﾂｪﾃｧ窶ｺﾃ④ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥❶" is in it thenput "ﾃ ﾃｼ ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏" && logFileName && "ﾃ ﾃｼ" & return & filePath into cd fld id 2LoadCard 23637if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 23637,trueend ifelseif "ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭm" is not in h then put h into cd fld id 2end ifend ifif "ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ⑿1" is in it thenput it into theLogrepeat until "ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ⑿1" is not in theLogput offset ("ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ⑿1",theLog) into pxdelete char 1 to (px + 6) of theLogif return & "窶懌槐ｸﾂｵﾃïｬつｺﾃ窶ｺ (1" is not in theLog thenread from file filePath for 16384if it is empty then exit repeatput it after theLogend ifput offset (return & "窶懌槐ｸﾂｵﾃïｬつｺﾃ窶ｺ (1",theLog) into pyput char 1 to (py - 1) of theLog into Noticeif Notice <> empty thenputNotice Notice,filePath,logFileNameend ifend repeatend ifend repeatclose file filePathhide msgif Notice <> empty thenLoadCard 23637if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 23637,trueend ifend ifhide msgend mouseUpon putNotice Notice,filePath,logFileNameput filePath into line 2 of cd fld id 2if "ﾃ❶ﾃｬoﾃｲ^ﾃ､ﾃﾃｳﾏ\ﾃ❶" is in Notice thenput "ﾃ ﾃｼ ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭm ﾃ ﾃ ﾃｬoﾃｲ^ ﾃ ﾃ" && logFileName && "ﾃ ﾃｼ" into line 1 of cd fld id 2else if "ﾃ｢ï｣ｿﾃｨﾃｺ (1:ﾃ｢ï｣ｿﾃｨﾃｺﾃ竏妥ﾃ 2:ﾃﾂｵﾃﾂｻﾃﾂ｢)" & return & "ﾃ⑦1" is in Notice thenput "ﾃ ﾃｻ ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭm ﾃ ﾃ ﾃ｢ï｣ｿﾃｨﾃｺ ﾃ ﾃ" && logFileName && "ﾃ ﾃｻ" into line 1 of cd fld id 2else if "ﾃ ﾂｨL" is in Notice thenput empty into txtdelete line 1 to 4 of Noticeput the number of lines of Notice - 4 into yrepeat with r = 1 to yset the cursor to busyget char 1 to 4 of line r of Noticedelete char 1 to 4 of line r of Noticeif it is " " or r is 1 thenput line r of Notice after txtelseput return & line r of Notice after txtend ifend repeatput txt into cd fld id 1if txt <> empty thenput "ﾃ ﾃｼ ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ邃｢ﾃｬoﾃｲ^ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏 ﾃ ﾃ ﾃ､mﾃｮF ﾃ ﾃ" && logFileName && "ﾃ ﾃｼ" into line 1 of cd fld id 2elseput "ﾃ ﾃｻ ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃﾃ陛ｱﾂ｢ﾃｬoﾃｲ^ﾃ竕暗竏 ﾃ ﾃ ﾃ､mﾃｮF ﾃ ﾃ" && logFileName && "ﾃ ﾃｻ" into line 1 of cd fld id 2end ifend ifend putNotice</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>20</left>
<top>284</top>
<right>67</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯ竄ｬ ﾃｫ竏</name>
<script>on mouseUpput "/* " & return & cd fld id 1 & return & " */" & return into tif t is not in cd fld id 5 thenif length(cd fld id 5 & t) > 30000 thenbeepanswer "ﾃﾂｱﾃﾃ催 ﾂｻﾃｨ窶榲ｬoﾃｲ^ﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津③ﾃｯsﾃｳvﾃﾂｻﾃ窶｡ﾃﾃεï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"elseput t after cd fld id 5end ifend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>8</left>
<top>117</top>
<right>505</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>76</left>
<top>284</top>
<right>112</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｨﾂ｡ﾃ｣ﾃｩ</name>
<script>on mouseUpsend "mouseUp del" to cd btn id 8end mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>132</left>
<top>284</top>
<right>188</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ･ﾆ津窶氾ｨoﾃﾂｵ</name>
<script>on mouseUp modeglobal ListSelectExitset the cursor to watchput (the optionKey is down) into opput empty into listput cd fld id 5 into dataListput MtScanList(dataList,"/* ") into spput MtScanList(dataList," */") into epput the number of lines of sp into lnrepeat with r = 1 to lnput addZero(r,2) && line (item 1 of line r of sp) + 1 of dataList & return after listend repeatif mode is empty thenput ListSelect ("1#",list,"ﾃｫIﾃｫï｣ｿﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥ﾃï｣ｿﾃ･ﾆ津窶氾ｨoﾃﾂｵﾃ窶ｹﾃ竏妥③","ﾃ･ﾆ津窶氾ｨoﾃﾂｵ","9,29,504,314",return,"ASLFont+,9") into sListelseput ListSelect ("3#",list,"ﾃｫIﾃｫï｣ｿﾃ嘉 ﾃ叡ﾃ瓜ﾃ [ﾃ姥ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｨﾂ｡ ﾃ｣ﾃｩ","NoDoubleClick","9,29,504,314",return,"ASLFont+,9") into sListend ifif ListSelectExit is "Cancel" or sList is empty then exit mouseUpset the cursor to watchrepeat with r = the number of lines of sList down to 1get line r of sListput item 1 of (line it of sp) + 1 into xput item 1 of (line it of ep) - 1 into yif mode is empty thenget line x to y of dataListput it into cd fld id 1put line 1 of it into cd fld id 2set the hilite of cd btn "ﾃ｢ï｣ｿﾃｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseelsedelete line (x - 1) to (y + 1) of cd fld id 5end ifend repeatend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>303</top>
<right>20</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUplock screenget the visible of cd fld id 5set the visible of cd fld id 5 to not itend mouseUp</script>
<script>on mouseUpset the hilite of cd btn id 13 to falseend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>375</left>
<top>282</top>
<right>400</right>
<bottom>307</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24670</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp-- lock screenput line 2 of cd fld id 2 into filePathput (the optionKey is down) into opif filePath is empty or there is not a file filePath or op thenget postPath()if it <> empty then MtSetDefaultDir itput it & "_ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭm" into filePathif there is not a file filePath or op thenanswer file "ﾃｯsﾃｧ窶ｺﾃｭﾂ ﾃｭmﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type "text"if it is empty then exit mouseUpput it into filePathend ifput filePath into line 2 of cd fld id 2end ifput PathToFile(filePath) into fileNameput fileName into line 1 of cd fld id 2set the cursor to watchput empty into theTextopen file filePathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifrepeat 2read from file filePath for 15000put it after theTextend repeatclose file filePathput theText into cd fld id 1set the hilite of cd btn "ﾃ｢ï｣ｿﾃｨﾃｺ" to falseset the hilite of cd btn "ﾃ､mﾃｮF" to falseend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>262</left>
<top>286</top>
<right>311</right>
<bottom>304</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ､mﾃｮF</name>
<script>on mouseUpset the hilite of cd btn id 11 to falseend mouseUp</script>
<script>on mouseUpset cursor to watchput the selectedText of me into cTextif cText is empty then exit mouseUpput the number of words of cText into nwput word nw of cText into forumNameput empty into forumName2if word (nw - 1) of cText is "or" thenput word (nw - 2) of cText into forumName2if the clicktext <> forumName thenget forumNameput forumName2 into forumNameput it into forumName2end ifput (nw - 2) into nwend ifput cd fld id 5 into listput MtScanList(list,forumName,,true) into sif forumName2 <> empty thenget MtScanList(list,forumName2,,true)if it <> empty thendelete item 1 of itput "," & it after send ifend ifif s <> empty thenput " " into char 1 of line (word 2 of the selectedLine of me) of cd fld id 1repeat with r = the number of items of s down to 2delete item (item r of s) of listend repeatelseflashbeepif the hilite of bg btn "createMark" then beepget word 2 to (nw - 1) of cTextanswer "ﾃｱ{ﾃｬﾃｱﾃ窶ｦ" & quote & it & quote & return & "[" && forumName && "] ﾃï｣ｿﾃｫïｬﾃ｢ﾃ氾ﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Yes" or "No"if it is "Yes" thenput "*" into char 1 of line (word 2 of the selectedLine of me) of cd fld id 1put forumName into item (the number of items of list) + 1 of listend ifend ifsort items of listput list into cd fld id 5select line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>30</top>
<right>505</right>
<bottom>46</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpopenEditLogend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "MYFORUMﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put readLogFile2("ﾃ｣Mﾃｯﾋ堙ﾃ陛 ﾂｻﾃ｢竏ｫﾃﾃε液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ窶ｦﾃｬﾂｸﾃ｢ﾃ氾ｪ¥ﾃｧﾃｻﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③",return & "ﾃｯ¥ﾃｩﾂｶﾃｨIﾃｳﾏ\",filePath,,,1) into theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into cd fld id 2delete line 1 to 2 of theLogput delLine(theLog,4) into theLogput theLog into cd fld id 1put empty into cd fld id 5send "mouseUp" to cd fld id 6LoadCard 23208if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 23208,trueend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput cd fld id 1 into trepeat with r = 1 to the number of lines of tset the cursor to busyput " " into char 1 of line r of tend repeatput t into cd fld id 1put empty into cd fld id 5end mouseUp</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>10</left>
<top>274</top>
<right>244</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUp opput cd fld id 5 into listput cd fld id 1 into nameListif the optionKey is down or op is true thenask "ﾃｫïｬﾃ｢ﾃ氾竏妥ﾃ暗液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ЖOﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"if it is empty or the result is "Cancel" then exit mouseUpput upperLower(it) into forumNameput MtScanList(list,forumName,,true) into sif s is empty thenput MtScanList(nameList,forumName,,true," ") into sif s <> empty thenput line (item 1 of s) of cd fld id 1 into checkTxtput the number of words of checkTxt into nwput word nw of checkTxt into forumName1if word (nw - 1) of checkTxt is "or" thenput word (nw - 2) of checkTxt into forumName2elseput empty into forumName2end ifif forumName is forumName1 thenput forumName2 into checkForumelseput forumName1 into checkForumend ifget MtScanList(list,checkForum,,true)if it <> empty thendelete item (item 2 of it) of listend ifput "*" into char 1 of line (item 1 of s) of cd fld id 1end ifput forumName into item (the number of items of list) + 1 of listsort items of listend ifelseput the clickText into forumNameif forumName is empty then exit mouseUp-- answer quote & forumName & quote && "ﾃï｣ｿﾃｫïｬﾃ｢ﾃ氾ﾂｩﾃﾃﾃｨﾃｺﾃ､Oﾃﾂｵﾃ窶ｹﾃ竏妥③" with "No" or "Yes"-- if it is "No" then exit mouseUpput MtScanList(list,forumName,,true) into sdelete item (item 2 of s) of listput MtScanList(nameList,forumName,,true," ") into sif s <> empty thenput " " into char 1 of line (item 1 of s) of cd fld id 1end ifend ifput list into cd fld id 5end mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>180</left>
<top>47</top>
<right>321</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpglobal CNMregForumput cd fld id 1 of cd id 23208 into list1put empty into list2put the number of lines of list1 into nrepeat with r = 1 to nset the cursor to busyget line r of list1put the number of words of it into wput last word of it & return after list2if word (w - 1) of it is "or" then put word (w - 2) of it & "," before last line of list2end repeatput list2 into cd fld id 6 of cd id 23208put list2 & cd fld id 8 of cd id 23208 into CNMregForumend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>270</left>
<top>284</top>
<right>326</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃﾂｪﾃﾃεｫﾂｺ</name>
<script>on mouseUpglobal CNMregForumlock screenput the visible of cd fld id 8 into vset the visible of cd fld id 8 to not(v)set the visible of cd fld id 9 to not(v)if v is false and the optionKey is down then show cd fld id 6else hide cd fld id 6get upperLower(cd fld id 8)put it into cd fld id 8if v then put (cd fld id 6) & it into CNMregForumunlock screenend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>320</left>
<top>117</top>
<right>434</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>320</left>
<top>47</top>
<right>434</right>
<bottom>118</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd btn id 7end mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ</name>
<script>on mouseUpvisual effect dissolve very fastgo to card id 51661end mouseUp</script>
<script>on closeCardif the visible of cd fld id 8 then send "mouseUp" to cd btn id 7pass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 5put empty into cd fld id 6put empty into cd fld id 8end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMvariableListset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put cd fld id 5 into listReportCdNameif list <> empty thenput the number of items of list into nrepeat with r = 1 to nput item r of list into ForumNameput "cNM" & ForumName & "_" into variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "global" && variableNamedo "put empty into" && variableNameputVariableName variableNameget macro1(ForumName)put "*: TotalLabel : 3" & return after itdo "put it after" && variableNameput quote & ForumName & quote & "ﾃｫïｬﾃ｢ﾃ氾厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ③" & return after cNMmacroReportelseput quote & ForumName & quote & "ﾃﾃε厭ﾃ丑ﾃ嘉ｧﾃ邃｢ﾃｫﾂｺﾃ窶ｦﾃｧﾃ湘ｪﾂｨﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗ﾃε竕暗②ﾃｫïｬﾃ｢ﾃ氾厭ﾃ丑ﾃ嘉ｧﾃﾃ陛ｧﾃ湘ｪﾂｨﾃﾂｵﾃ窶ｹﾃﾏ\ﾃﾃ津竕暗ﾂｵﾃﾎｩﾃ③" & return after cNMmacroReportend ifend repeatsend "mouseUp" to cd btn id 4end ifMyForumMacroend makeMacrofunction macro1 forumNameput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put cd fld id 3 of cd "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ" into sput "m: ##" && forumName && "##" & return &ﾂｬ"s:GO" && forumName & "^m" & return &ﾂｬ"t:" & label1 & ":" & s & ":ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ､Tﾃｳv" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"j:" & label3 & return &ﾂｬlabel1 & ":" & return into macroif the hilite of cd btn id 5 of cd "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｪ窶ｺﾃｭﾃ" then put "s:^m" & return after macroput "m:" && "[" && forumName && "]" && "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｫïｬﾃ｢ﾃ" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label2 & ":^mFORUM>" & return &ﾂｬ"s:SET MENu OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ&:^mmore>" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mFORUM>ﾆ&:^mmore>" & return &ﾂｬ"s:QUIT^m" & return &ﾂｬ"*:ﾃｫïｬﾃ｢ﾃ氾ﾃε､mﾃｮF (1:ﾃｫïｬﾃ｢ﾃ氾竏妥ﾃ 2:ﾃｫïｬﾃ｢ﾃ氾ﾂｵﾃﾂｻﾃﾂ｢ ﾃ｢ﾂｸﾃｧsﾃﾃε窶ｺﾃｨIﾃｳﾏ\)" & return &ﾂｬ"r:^mﾃ⑦" & return & "s:1^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬlabel3 & ":" & return after macroreturn macroend macro1on GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_22065.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset the hilite of cd btn id 18 to not(the hilite of cd btn id 18)set the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>31</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>304</left>
<top>211</top>
<right>330</right>
<bottom>229</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｫOﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 19 to not(the hilite of cd btn id 19)set the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>32</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>304</left>
<top>231</top>
<right>330</right>
<bottom>249</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｬﾃｱﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 20 to not(the hilite of cd btn id 20)set the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>23</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>377</left>
<top>266</top>
<right>413</right>
<bottom>284</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>1</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>28</left>
<top>132</top>
<right>149</right>
<bottom>150</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬﾋ凖ｱﾃ ﾃｧﾃ｡ﾃ･vﾃｯ¥ﾃｩﾂｶ</name>
<script>on mouseUpshowHideFldBtnend mouseUpon showHideFldBtnlock screenput (the hilite of cd btn id 1) into vif the visible of cd fld id 4 is not v thenset the cursor to watchrepeat with r = 3 to 16if (r >= 8 and r <= 10) or r = 16 thenset the visible of cd btn id r to velseset the visible of cd fld id r to vend ifend repeatend ifend showHideFldBtn</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>272</left>
<top>132</top>
<right>393</right>
<bottom>150</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃｨ竅ﾃｧ笳甘ｯ¥ﾃｩﾂｶ</name>
<script>on mouseUpshowHideFldBtnend mouseUpon showHideFldBtnlock screenput (the hilite of cd btn id 2) into vif the visible of cd fld id 25 is not v thenset the cursor to watchrepeat with r = 18 to 32if r = 26 then next repeatif (r >= 18 and r <= 21) thenset the visible of cd btn id r to velseset the visible of cd fld id r to vend ifend repeatend ifend showHideFldBtn</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>131</left>
<top>266</top>
<right>167</right>
<bottom>284</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>31</left>
<top>165</top>
<right>100</right>
<bottom>183</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>58</left>
<top>191</top>
<right>84</right>
<bottom>209</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｫOﾃ Xﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 8 to not(the hilite of cd btn id 8)set the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>58</left>
<top>211</top>
<right>84</right>
<bottom>229</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｫOﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 9 to not(the hilite of cd btn id 9)set the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>58</left>
<top>231</top>
<right>84</right>
<bottom>249</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>ﾃｬﾃｱﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 10 to not(the hilite of cd btn id 10)set the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>191</top>
<right>59</right>
<bottom>209</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>211</top>
<right>59</right>
<bottom>229</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>231</top>
<right>59</right>
<bottom>249</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 16 to falseend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>62</left>
<top>266</top>
<right>132</right>
<bottom>284</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldsend "mouseUp" to cd btn id 16set the hilite of cd btn id 16 to truecheckN 30end closeFieldon exitFieldcheckN 30end exitFieldon returnInFieldcheckN 30end returnInField</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>166</left>
<top>266</top>
<right>236</right>
<bottom>284</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldsend "mouseUp" to cd btn id 16set the hilite of cd btn id 16 to truecheckN 0end closeFieldon exitFieldcheckN 0end exitFieldon returnInFieldcheckN 0end returnInField</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>83</left>
<top>191</top>
<right>167</right>
<bottom>209</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 5end mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>83</left>
<top>211</top>
<right>167</right>
<bottom>229</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 6end mouseUp</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>83</left>
<top>231</top>
<right>167</right>
<bottom>249</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 7end mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>266</top>
<right>59</right>
<bottom>284</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUprepeat with r = 8 to 10set the hilite of cd btn id r to falseend repeatend mouseUp</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>172</left>
<top>45</top>
<right>455</right>
<bottom>214</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>191</top>
<right>305</right>
<bottom>209</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>211</top>
<right>305</right>
<bottom>229</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>231</top>
<right>305</right>
<bottom>249</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the hilite of cd btn id 21 to falseend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>287</left>
<top>266</top>
<right>305</right>
<bottom>284</bottom>
</rect>
<style>checkbox</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUprepeat with r = 18 to 20set the hilite of cd btn id r to falseend repeatend mouseUp</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>308</left>
<top>266</top>
<right>378</right>
<bottom>284</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldsend "mouseUp" to cd btn id 21set the hilite of cd btn id 21 to truecheckN 30end closeFieldon exitFieldcheckN 30end exitFieldon returnInFieldcheckN 30end returnInField</script>
</part>
<part>
<id>24</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>412</left>
<top>266</top>
<right>482</right>
<bottom>284</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldsend "mouseUp" to cd btn id 21set the hilite of cd btn id 21 to truecheckN 0end closeFieldon exitFieldcheckN 0end exitFieldon returnInFieldcheckN 0end returnInField</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>277</left>
<top>165</top>
<right>346</right>
<bottom>183</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>329</left>
<top>191</top>
<right>413</right>
<bottom>209</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 30end mouseUp</script>
</part>
<part>
<id>28</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>329</left>
<top>211</top>
<right>413</right>
<bottom>229</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 31end mouseUp</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>329</left>
<top>231</top>
<right>413</right>
<bottom>249</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpsend "mouseUp" to cd fld id 32end mouseUp</script>
<script>on mouseUpshowHideFldBtnend mouseUpon showHideFldBtnlock screenput (the hilite of cd btn id 2) into vif the visible of cd fld id 25 is not v thenset the cursor to watchrepeat with r = 18 to 32if r = 26 then next repeatif (r >= 18 and r <= 21) thenset the visible of cd btn id r to velseset the visible of cd fld id r to vend ifend repeatend ifend showHideFldBtn</script>
</part>
<part>
<id>36</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>408</left>
<top>58</top>
<right>493</right>
<bottom>76</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>NEWBILL</name>
<script>on mouseUpshowHideFldBtnend mouseUpon showHideFldBtnlock screenput (the hilite of cd btn id 2) into vif the visible of cd fld id 25 is not v thenset the cursor to watchrepeat with r = 18 to 32if r = 26 then next repeatif (r >= 18 and r <= 21) thenset the visible of cd btn id r to velseset the visible of cd fld id r to vend ifend repeatend ifend showHideFldBtn</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>MoneySaver 1.4</name>
<script>on mouseUpget the optionKeyif it is up then go to stack "MoneySaver 1.4" in a new window without dialogif the result is "No such stack" or it is down thenget setGoSTbtn ("MoneySaver 1.4")if it is empty then exit mouseUpgo to stack (item 3 of it) in a new windowelseif the result <> empty then go to stack "MoneySaver 1.4"end ifend mouseUp---------- ﾃ ﾂｶ ﾃｧﾃ古ｨﾃｺﾃ⑥ﾃｯﾅ禿ｧXﾃﾂｵﾃﾂｻﾃﾂ｢ﾃ竕暗竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ⑩ ----------"MoneySaver 1.4"</script>
<script>on mouseUpset the hilite of cd btn id 39 to falseset the hilite of me to truehide cd btn id 40hide cd btn id 41send "openCard" to this cdend mouseUp</script>
<script>on mouseUpset the hilite of cd btn id 38 to falseset the hilite of me to trueshow cd btn id 40show cd btn id 41send "openCard" to this cdend mouseUp</script>
<script>on openCardconvert the date to dateItemsget item 2 of itif the hilite of cd btn id 39 thenget addSubMonth(it,-3)end ifif it <> cd fld id 7 then putMonth itif the hilite of cd btn id 39 thenput nextSEAdate(93) into d0put nextSEAdate(124) into d31elseput nextSEAdate(0) into d0put nextSEAdate(31) into d31end ifif the hilite of cd btn id 16 is false thenput d31 into cd fld id 11put d0 into cd fld id 12end ifif the hilite of cd btn id 21 is false thenput d31 into cd fld id 22put d0 into cd fld id 24end ifset the visible of cd btn id 36 to not(d0 > "951002")pass openCardend openCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃｪ窶ｺﾃｭﾃ凝ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenset the hilite of cd btn id 1 to falsesend "showHideFldBtn" to cd btn id 1set the hilite of cd btn id 8 to falseset the hilite of cd btn id 9 to falseset the hilite of cd btn id 10 to trueset the hilite of cd btn id 16 to falseput empty into cd fld id 11put empty into cd fld id 12set the hilite of cd btn id 2 to falsesend "showHideFldBtn" to cd btn id 2set the hilite of cd btn id 18 to falseset the hilite of cd btn id 19 to falseset the hilite of cd btn id 20 to trueset the hilite of cd btn id 21 to falseput empty into cd fld id 22put empty into cd fld id 24set the hilite of cd btn id 35 to falseset the hilite of cd btn id 36 to falsesend "mouseUp" to cd btn id 38end clearDataon putMonth mlock screenput m into cd fld id 7put addSubMonth(m,-1) into cd fld id 6put addSubMonth(m,-2) into cd fld id 5put cd fld id 7 into cd fld id 32put cd fld id 6 into cd fld id 31put cd fld id 5 into cd fld id 30unlock screenend putMonthfunction addSubMonth m,nput (m + n) mod 12 into mif m < 1 then add 12 to mreturn mend addSubMonthon checkN nget targetrepeat until "." is not in it and "/" is not in itif "." is in it then delete char offset(".",it) of itif "/" is in it then delete char offset("/",it) of itend repeatput it into d2put "." after char 2 of d2put "." after char 5 of d2convert d2 to secondsif (it is not a integer or length(it) <> 4 and length(it) <> 6) and it <> empty or d2 > the seconds thenbeepput the date into dconvert d to dateitemsput item 3 of d - 1 into sput 1 into item 3 of dconvert d to long dateget nextSEAdate(s)answer quote & nextSEAdate(0) & quote & "ﾃ ﾂｻﾃｫOﾃﾃεｬﾋ凖ｯt(YYMMDD / MMDD)ﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿ﾃｳﾂｷﾃ⒀" & d & "ﾃﾃεｨﾃ催ｧﾃ｡" & return &ﾂｬ"ﾃ①ﾃ①ﾃ①" & quote & it & quote && "," && quote & char 3 to 6 of it & quoteput nextSEAdate(n) into targetselect text of targetelseput it into targetend ifend checkN----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMnewMacroput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameif the hilite of cd btn id 36 is false or nextSEAdate(0) > "951002" thenget "BILL"elseget "NEWBILL"end ifput "m: ﾃｳﾃｲﾃｳpﾃｳﾃｸﾃ｣窶｡ﾃｨﾃ禿ｯﾃ津ｩﾃ甘ｬﾃｦ" & return &ﾂｬ"s:GO " & it & "^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return into macroif the hilite of cd btn id 39 thenput "s:3^m" & return after macroelseput "s:2^m" & return after macroend ifput macro1() after macroput "r:^mﾃ ﾃ" & return after macroconvert the date to dateItemsget item 2 of itif the hilite of cd btn id 39 thenget addSubMonth(it,-3)end ifif it <> cd fld id 7 then putMonth itif the hilite of cd btn id 1 thenput "m: ﾃｳﾃｲﾃｳpﾃｳﾃｸﾃ｣窶｡ﾃ⑿ﾃｬﾋ凖ｱﾃ ﾃｧﾃ｡ﾃ･vﾃ⒀" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: ﾃｩﾃ甘ｬﾃｦﾃ･ﾃｩﾃｬﾋ" & return &ﾂｬ"s:" & targetMonth("8,10,3,11,12,16,7") & "^m" & return after macroput macro1() & "r:^mﾃ ﾃ" & return after macroend ifif the hilite of cd btn id 2 thenput "m: ﾃｳﾃｲﾃｳpﾃｳﾃｸﾃ｣窶｡ﾃ⑿ﾃｨ竅ﾃｧ笳甘⒀" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"*: ﾃｩﾃ甘ｬﾃｦﾃ･ﾃｩﾃｬﾋ" & return &ﾂｬ"s:" & targetMonth("18,20,-12,22,24,21,32") & "^m" & return after macroput macro1() & "r:^mﾃ ﾃ" & return after macroend ifif the hilite of cd btn id 35 thenput "m: ﾃｳﾃｲﾃｳpﾃｳﾃｸﾃ｣窶｡ﾃ⑿ﾃｱﾃｦﾃｧ笳甘⒀" & return &ﾂｬ"s:4^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return after macroif the hilite of cd btn id 39 thenput "*: ﾃ㈶ﾃ雨ﾃ･ﾃｩﾃｯ邃｢ﾃｯ¥ﾃｩﾂｶ" & return after macroelseput "*: ﾃｫOﾃ Xﾃ･ﾃｩﾃﾂｩﾃﾃﾃｯ¥ﾃｩﾂｶ" & return after macroend ifput "s:^m" & return after macroput macro1() & "r:^mﾃ ﾃ" & return after macroend ifput "s:E^m" & return & "r:^mﾃ ﾃ" & return after macroput checkLabel(macro) into labelListput "*: TotalLabel : " & the number of items of labelList & return after macroput macro after cNMnewMacroend makeMacrofunction macro1put nextLabel() into label1return "r:ﾃｯ¥ﾃｩﾂｶﾃ･ﾃｩﾃｫIﾃｫï｣ｿ (ﾆ" & label1 & ":ﾃｯ¥ﾃｩﾂｶﾃｨﾃ禿ｯﾃ津ｫIﾃｫï｣ｿ (1" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"s:E^m" & return & label1 & ":" & returnend macro1-- function macro1put nextLabel() into label1return label1 & ":" & return & "t:" & label1 & ":30:ﾃｯ¥ﾃｩﾂｶﾃｨﾃ禿ｯﾃ津ｫIﾃｫï｣ｿ (1" & returnend macro1function targetMonth nput empty into monthrepeat with r = (item 1 of n) to (item 2 of n)if the hilite of cd btn id r then put cd fld id (r - (item 3 of n)) & "," after monthend repeatif month <> empty thendelete last char of monthelseput cd fld id (item 4 of n) into f1put cd fld id (item 5 of n) into f2if the hilite of cd btn id (item 6 of n) and f1 <> empty and f2 <> empty thenput f1 & "-" & f2 into monthend ifend ifif the number of items of month is 3 thenput empty into monthend ifreturn monthend targetMonth</script>
</card>
card_19774.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on closeFieldglobal cNMeditDownListput true into cNMeditDownListcheckDownDataend closeFieldon mouseUpset cursor to watchif the optionKey is down then put "delB" into modeelse if the shiftKey is down then put "down" into modeelse put "delA" into modeput clicklist(word 2 of the selectedLine of me,cd fld id 1,mode) into cd fld id 1select line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>382</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>DownList.libﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUpput cNifPath() into cNifPathput "DownList.lib" into DLNameput cNifPath & DLName into DownListPathif there is not a file DownListPath or the optionKey is down thenglobal ListSelectExitset the cursor to watchput fileListInFldr(cNifPath,"T:TEXT" & return & "N:" & DLName) into DownFListif DownFList <> empty thenget ListSelect ("*1",DownFList,"ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃïｬﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③","ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into DLNameput cNifPath & DLName into DownListPathelseanswer quote & DLName & quote && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"exit mouseUpend ifend ifopen file DownListPathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifread from file DownListPath for 16384put it into downListclose file DownListPathif cd fld id 1 <> empty thenanswer "ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃﾃε映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "A. ﾃｭﾂｫﾃ｢ﾂ｡" or "R. ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶ" or "Cancel"if it is "Cancel" then exit mouseUpset the cursor to watchif it is "A. ﾃｭﾂｫﾃ｢ﾂ｡" thenput cd fld id 1 before downListend ifend ifput "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ映ﾃ [ﾃ運ﾃ噂ﾃ [ﾃ曳ﾃ⑴ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①"put sortData(downList) into downListhide msgif downList is empty thenput "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄ﾃｩwﾃｭﾃ凝ﾃ陛窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" into downListend ifput downList into cd fld id 1put DLName & return & DownListPath into cd fld id 8if DLName = "DownList.lib" thenanswer "DownList.libﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃ⑴ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉ﾃﾂｵﾃ窶ｹﾃ竏妥③" with "Cancel" or "D. ﾃｧﾃ古ｨﾃｺ" or "R. ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉"if it <> "Cancel" thendelete char 1 to 3 of itset the cursor to watchput "ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①DownList.lib" & it & "ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"if it is "ﾃ嘉､ﾃ瑛ﾃ [ﾃ嘉" thenput fileListInFldr(cNifPath) into FileListput changeName ("_DownList.lib",FileList) into DLNameMtRenameFile DownListPath,DLNameelseMtDeleteFile DownListPathend ifif the result is not empty thenanswer "DownList.libﾃ液ﾃ院ﾃ韻ﾃ嘉｣" & it & "ﾃ竕暗烏ﾃ嘉｢ﾃ [ﾃ邃｢ﾃ｣Nﾃﾂｴﾃ窶ｹﾃﾂｵﾃﾎｩﾃ③"elseput DLName & return & cNifPath & DLName into cd fld id 8hide msgend ifend ifend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 1 to the hilite of meset the visible of cd fld id 15 to the hilite of meset the visible of cd btn id 17 to the hilite of meend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>285</left>
<top>284</top>
<right>370</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>DownList.libﾃｯ竄ｬﾃｫ竏</name>
<script>on mouseUpput cNifPath() into cNifPathput cNifPath & "DownList.lib" into DownListPathput cd fld id 1 into downListif downList is empty then exit mouseUpif there is a file DownListPath thenanswer "DownList.libﾃ邃｢ﾃ､ﾋ佚窶ｦﾃｧ窶ｺﾃﾃ凝窶ｹﾃ竏妥③ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "A.ﾃｭﾂｫﾃ｢ﾂ｡" or "B.ﾃｨﾃｫﾃﾂｴﾃ､竏妥ﾂｶ" or "Cancel"if it is "Cancel" then exit mouseUpif it is "A.ﾃｭﾂｫﾃ｢ﾂ｡" thenopen file DownListPathget the resultif it <> empty thenbeepanswer itexit mouseUpend ifread from file DownListPath for 16384put it & return before downListclose file DownListPathset the cursor to watchput "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ映ﾃ [ﾃ運ﾃ噂ﾃ [ﾃ曳ﾃ⑴ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①"put sortData(downList) into downListput downList into cd fld id 1hide msgend ifelseanswer "DownList.libﾃ窶ｦﾃｯ竄ｬﾃｫ竏づﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then exit mouseUpend ifrepeat with r = 1 to the number of lines of downListdelete char 1 to 2 of line r of downListend repeatMtWriteFile DownListPath,downList,EditorCreator()if the result <> empty thenanswer "DownList.libﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃｩﾃｻﾃ窶ｦﾃ烏ﾃ嘉｢ﾃ [ﾃ邃｢ﾃ｣Nﾃﾂｱﾃﾃ凝窶ｹﾃﾂｵﾃﾎｩﾃ③"&return&the resultput empty into cd fld id 8elseput "DownList.lib" & return & DownListPath into cd fld id 8end ifend mouseUp</script>
<script>on mouseUpif the optionKey is up then exit mouseUpset the cursor to watchput line 2 of target into filePathif filePath is empty or there is not a file filePath thenget cNifPath()if it <> empty then MtSetDefaultDir itanswer file "DownList.libﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" of type textif it is empty then exit mouseUpput it into filePathend ifopen filePath with editorPath()end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>PDS-Finder 1.5</name>
<script>on mouseUpsend "mouseUp" to bg btn id 27 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>222</left>
<top>284</top>
<right>261</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧﾃ｡ﾃ･v</name>
<script>on mouseUpput cd fld id 1 into downListif downList is empty then exit mouseUpput 0 into totalSizeput 0 into totalFileNumput 0 into fileNumput 0 into downFileNumput 0 into totaldownNumput 0 into downSizerepeat with r = 1 to the number of lines of downListset the cursor to busyget line r of downListif char 3 to 4 of it is "¥m" then next repeatadd 1 to totalFileNumif char 1 of it is "*" then add 1 to totaldownNumif char 12 to 13 of it is "/*" and char 23 to 29 of it is "bytes :" thenadd char 15 to 21 of it to totalSizeif char 1 of it is "*" thenadd char 15 to 21 of it to downSizeadd 1 to downFileNumend ifadd 1 to fileNumelse if char 11 to 12 of it is "/*" and char 13 to 17 of it is "PDSF:" thenadd char 28 to 34 of it to totalSizeif char 1 of it is "*" thenadd char 28 to 34 of it to downSizeadd 1 to downFileNumend ifadd 1 to fileNumend ifend repeatget "ﾃ曳ﾃ [ﾃ運ﾃ嘉｣ﾃ⑦" & totalFileNum && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" & return & fileNum && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ｡ﾃ･vﾃ⑦" & totalSize && "bytes"if totaldownNum > 0 thenput return & return & "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄ﾃ⑦" & totaldownNum && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" & return &ﾂｬdownFileNum && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ｡ﾃ･vﾃ⑦" & downSize && "bytes" after itput return & return & "ﾃ①ROAD 2ﾃ⑦ﾃｱﾃ" && round(downSize / 170 / 60) && "ﾃｯ邃｢" & return &ﾂｬ"ﾃ①ROAD 3ﾃ⑦ﾃｱﾃ" && round(downSize / 700 / 60) && "ﾃｯ邃｢" & return &ﾂｬ"ﾃ①ROAD 4ﾃ⑦ﾃｱﾃ" && round(downSize / 1200 / 60) && "ﾃｯ邃｢" & return &ﾂｬ"ﾃ①ROAD 5ﾃ⑦ﾃｱﾃ" && round(downSize / 2400 / 60) && "ﾃｯ邃｢" after itend ifanswer itend mouseUp</script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>8</left>
<top>47</top>
<right>22</right>
<bottom>273</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput word 2 of the clickLine into lput l + round((the scroll of cd fld id 1) / 14) into clselect line cl of cd fld id 1put clicklist(cl,cd fld id 1,"down") into cd fld id 1select line 0 of cd fld id 1end mouseUp</script>
<script>on openCardcheckDownDatapass openCardend openCardon closeCardset the lockText of cd fld id 1 to trueset the hilite of cd btn id 5 to trueset the visible of cd fld id 15 to trueset the visible of cd btn id 17 to truecheckDownDatapass closeCardend closeCardon controlKey whichKeyif whichKey = 3 then -- C "ﾃｧﾃ｡ﾃ･v"sendBtn "cd btn id 11"else if whichKey = 4 then -- D "DownList.libﾃｧﾃ古ｨﾃｺ"sendBtn "cd btn id 7"else if whichKey = 16 then -- P "PDS lister,PDS-Finder"sendBtn "cd btn id 9"else if whichKey = 23 then -- W "DownList.libﾃｯ竄ｬﾃｫ竏"sendBtn "cd btn id 6"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 8put empty into cd fld id 1end clearDataon checkDownDataglobal cNMeditDownListif (cNMeditDownList is true or cNMeditDownList is empty) and cd fld id 1 <> empty thenset cursor to watchput "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ映ﾃ [ﾃ運ﾃ噂ﾃ [ﾃ曳ﾃ⑴ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①"put sortData(cd fld id 1) into cd fld id 1hide msgput false into cNMeditDownListput empty into cd fld id 8end ifend checkDownDatafunction sortData DownListput the number of lines of DownList into lnput empty into returnlistput empty into listrepeat with r = ln down to 1put line r of DownList into dataif data is empty then next repeatif char 1 to 2 of data <> " " and char 1 to 2 of data <> "* " thenput " " before dataend ifif char 3 to 4 of data is "¥m" thensort lines of listif data & return is in returnlist thenput offset(data,returnlist) + length(data) into xput list after char x of returnlistput sortData(returnlist) into returnlistelseif length(data) <= 12 thenput upperLower(data) into dataput "m" into char 4 of dataput data & return & list before returnlistend ifend ifput empty into listelseif char 3 of data is a integer and char 3 of data <> " " thenif char 1 of data is "*" then put 2 into welse put 1 into wput word w of data into dNoput dNo into nput char 1 to offset("-",n) - 1 of n into LIBNoif LIBNo > 20 then next repeatdelete char 1 to offset("-",n) of nif "," is in n or "-" is in n thenput word (w + 1) to (the number of words of data) of data into comentput convertNum(n,LIBNo,list,coment) into listnext repeatend ifput length(dNo) into lif l < 7 thenput offset("-",data) into xput addzero(char 3 to (x - 1) of data,2) into LIBNoput addzero(char (x + 1) to (l + 2) of data,4) into DataNoput LIBNo & "-" & DataNo into word w of dataend ifif dNo is not in list then put data & return after listend ifend ifend repeatreturn returnlistend sortDatafunction convertNum n,LIBNo,list,comentif coment <> empty then put " " before comentput shortNumber (n,false,true) into nrepeat with i = 1 to the number of items of nget " " & addzero(LIBNo,2) & "-" & addzero(item i of n,4)if it is not in list then put it & coment & return after listend repeatreturn listend convertNum----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNMeditDownListset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ映ﾃ [ﾃ運ﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put dataList() into listput cd fld id 1 into dataListrepeat with r = the number of lines of dataList down to 1if char 1 of line r of dataList is "*" thenput clicklist(r,dataList,"delB") into dataListend ifend repeatput dataList into cd fld id 1put false into cNMeditDownListput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"if list is empty thenget "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦downListﾃ映ﾃ [ﾃ運ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & returnmakeMacroError it,"downListﾃ映ﾃ [ﾃ運ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put empty into dlistput the number of lines of list into lnrepeat with r = 1 to lnget line r of listput item 1 of it into ForumNameput it & return after dlistif ForumName <> item 1 of line (r + 1) of list or r = ln thenput "cNM" & ForumName & "_" into variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "global" && variableNamedo "put empty into" && variableNameputVariableName variableNameget MacroGoForum(ForumName)do "put it after" && variableNameend ifput "cNM" & ForumName & "_LIB" into variableNamedo "global" && variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "put empty into" && variableNameputVariableName variableNameend ifget macro1(dlist)do "put it after" && variableNameput empty into dlistend ifend repeatend makeMacrofunction macro1 listput empty into lastLibNumberput empty into LibListput empty into mput "s:LIB" into srepeat with r = 1 to the number of lines of listget line r of listput item 2 of it into LibNumberif LibNumber <> lastLibNumber thenif LibList <> empty thenif "s:LIB" is in m then put "s:LX" into sput macro2(LibList,s) after mput empty into LibListend ifput LibNumber into lastLibNumberend ifput it & return after LibListend repeatif LibList <> empty thenif "s:LIB" is in m then put "s:LX" into sput macro2(LibList,s) after mend ifreturn mend macro1function macro2 list,sput empty into mput empty into m1put 0 into nput item 1 of list into ForumNameput item 2 of list into LibNumberrepeat until list is emptyget line 1 of listput item 3 of it into DataNumberput item 4 of it into downLoadput nextLabel() into label1if downLoad thenput ForumName & "_L" & LibNumber & "(" & DataNumber & ")" into fNameput Macro3a(DataNumber,label1,fName) after m1elseput Macro3b(DataNumber,label1) after m1end ifadd 1 to ndelete line 1 of listif n is 10 or list is empty thenput s && LibNumber & "^m" & return &ﾂｬ"r:^mLIB>ﾆ" & label1 & ":^mFORUM>" & return before m1put "m:" && "[" && ForumName && "] LIB:" & LibNumber && "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃ⑴ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄" & return before m1put checkLabel(m1) into labelListput "*: TotalLabel : " & the number of items of labelList & return after m1put m1 after mput empty into m1put 0 into nend ifend repeatreturn mend macro2function macro3a LibNumber,Label,fNamereturn "s:DOWn PROT:BPL" && LibNumber & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & Label & ":^mLIB>" & return &ﾂｬ"s:1^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & fName & "^m" & return &ﾂｬ"r:ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄ﾃ､Jﾃｩn" & return &ﾂｬ"+:1" & return &ﾂｬ"r:^mLIB>" & return &ﾂｬ"+:0" & return &ﾂｬLabel & ":" & returnend macro3afunction macro3b LibNumber,Labelreturn "s:DOWn PROT:BPL" && LibNumber & "^m" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & Label & ":^mLIB>" & return &ﾂｬ"s:2^m" & return &ﾂｬ"r:^mLIB>" & return &ﾂｬLabel & ":" & returnend macro3bfunction dataListput sortData(cd fld id 1) into downListput downList into cd fld id 1put empty into lookListrepeat with r = 1 to the number of lines of downListset the cursor to busyget line r of downListput (char 1 of it is "*") into downLoaddelete char 1 to 2 of itget word 1 of itif "¥m" is not in it and "-" is not in it then next repeatif "¥m" is in it then put char 3 to length(it) of it into forumNameif "-" is in it thenput addZero(char 1 to (offset("-",it)-1) of it,2) into libNumberput addZero(char (offset("-",it)+1) to length(it) of it,4) into dataNumberput forumName &","& libNumber &","& dataNumber &","& downLoad into lDataget MtScanList(lookList,lData,,true)if lookList is empty or it is empty then put lData &return after lookListend ifend repeatsort lines of lookListreturn lookListend dataListfunction clicklist cl,DownList,modeput line cl of DownList into cTextif cText is empty then return DownListput char 3 to 4 of cText into LIBNoput char 6 to 9 of cText into DataNorepeat with r = cl down to 1get line r of DownListif char 3 to 4 of it is "¥m" thenput char 5 to length(it) of it into ForumNameexit repeatend ifend repeatif char 3 to 4 of cText is "¥m" thenput the number of lines of DownList into lnrepeat with r = (cl + 1) to lnget line r of DownListif char 3 to 4 of it is "¥m" thenput r - 1 into lnexit repeatend ifend repeatif "del" is in mode thenif mode is "delA" thenif char 1 of line (cl + 1) of DownList is "*" then get "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｩﾃ甘ｬﾃｦ" else get "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄"answer ForumName & return & "ﾃ映ﾃ [ﾃ運ﾃｪﾃｮﾃ⑦" && (ln - cl) with "Cancel" or "ﾃｧﾃ古ｨﾃｺ" or itend ifif it is "ﾃｧﾃ古ｨﾃｺ" or mode is "delB" thendelete line cl to ln of DownListelse if it is "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄" or it is "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｩﾃ甘ｬﾃｦ" thenput downMark(cl,ln,DownList) into DownListelsereturn DownListend ifelseput downMark(cl,ln,DownList) into DownListend ifelse if cText <> empty and LIBNo is a integer and DataNo is a integer thenput char offset("/*",cText) + 2 to offset("*/",cText) - 1 of cText into nput (char 1 to 6 of n is "PDSF: ") into PDSFdelete char 1 to offset(":",n) of nif PDSF then delete char 1 to 18 of nif "del" is in mode thenif mode is "delA" thenif char 1 of cText is "*" then get "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｩﾃ甘ｬﾃｦ" else get "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄"answer ForumName && "LIB :" && LIBNo & "-" & DataNo & return & quote & n & quote with "Cancel" or "ﾃｧﾃ古ｨﾃｺ" or itend ifif it is "ﾃｧﾃ古ｨﾃｺ" or mode is "delB" thendelete line cl of DownListget char 3 to 4 of line (r + 1) of DownListif it is "¥m" or it is empty thendelete line r of DownListend ifelse if it is "ﾃ雲ﾃ右ﾃ嘉ｬﾃ嘉ｧﾃ [ﾃ栄" or it is "ﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｩﾃ甘ｬﾃｦ" thenput downMark(cl - 1,cl,DownList) into DownListelsereturn DownListend ifelseput downMark(cl - 1,cl,DownList) into DownListend ifend ifreturn DownListend clicklistfunction downMark cl,ln,DownListglobal cNMeditDownListput char 1 of line (cl + 1) of DownList into dif d is "*" then put " " into delse put "*" into drepeat with r = (cl + 1) to lnput d into char 1 of line r of DownListend repeatput true into cNMeditDownListreturn DownListend downMarkon GComBtnreturn "cd btn id 2"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_15661.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to watchput the selectedText of me into cTextif cText is empty then exit mouseUpget char 2 to 4 of cTextif it is a number then-- if it is a number and it <> " " thenif char 1 of cText <> "*" thenput "*" into char 1 of line (word 2 of the selectedLine of me) of meput cd fld id 4 into listif list contains "-" then put shortNumber(list,false,true) into listput value(it) into item (the number of items of list) + 1 of listsort items of list numericelseput " " into char 1 of line (word 2 of the selectedLine of me) of meput cd fld id 4 into listif list contains "-" then put shortNumber(list,false,true) into listrepeat with r = 1 to the number of items of listif item r of list = it thendelete item r of listexit repeatend ifend repeatend ifif shortNum() then put shortNumber (list,true,true) into listput list into cd fld id 4end ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put readLogFile2("ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ OANN",return & "ﾃ ﾃ",filePath,true,,1) into theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into cd fld id 1delete line 1 to 2 of theLogput delLine(theLog,4) into theLogput theLog into cd fld id 2put empty into cd fld id 4LoadCard 15661if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 15661,trueend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>10</left>
<top>274</top>
<right>152</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpaskListend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput cd fld id 2 into trepeat with r = 1 to the number of lines of tset the cursor to busyif char 1 of line r of t is "*" then put " " into char 1 of line r of tend repeatput t into cd fld id 2put empty into cd fld id 4end mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>212</left>
<top>287</top>
<right>251</right>
<bottom>303</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on closeFieldcheckNend closeFieldon exitFieldcheckNend exitFieldon returnInFieldcheckNend returnInFieldon checkNif me is not a integer or me < 1 thenbeepanswer "ﾃｪﾃﾃｪﾃｮﾃï｣ｿﾃｬﾂｸﾃﾃ催ﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"put 5 into meselect text of meelseput me into meend ifend checkN</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> 2. ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>5</text>
</content>
<name> 2. ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\</name>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 4put 5 into cd fld id 8end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMnewMacroset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cd fld id 4 into listput shortNumber(list,true,true) into listput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put "m: ﾃｪﾃ甘ｨTﾃ窶ｹﾃ竕暗ﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:GO AN^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"s:SET PAGe ON^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"s:2^m" & return after cNMnewMacroget cd fld id 8put empty into mif it > 1 thenrepeat with r = 2 to itput "*:" && r & "ﾃ謁ﾃ [ﾃ姥ﾃｱ竅" &return& "s:^m" &return& "r:^mﾃ ﾃ" & return after mend repeatend ifif list <> empty thenput line 1 of cd fld id 2 into fTitleif fTitle <> empty thenput " " into char 1 of fTitleend if-- ﾃｨﾃ禿ｯﾃ津邃｢ﾃｭﾂｫﾃ｢ﾂ｡ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗ｨﾃ催ｧﾃ｡ﾃ②ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ厩ﾃ鵜ﾃ叡ﾃ益ﾃ③put nextLabel() into label1put "r:" & fTitle & "ﾆ" & label1 & ":^mﾃ ﾃ" & return &ﾂｬ"r:^mﾃ ﾃ" & return & m &ﾂｬ"*: ﾃｨﾃ禿ｯﾃ津ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:SET PAGe OFF^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ"s:" & list & "^m" & return &ﾂｬ"r:ﾃｯ¥ﾃｩﾂｶﾃｨIﾃｳﾏ\^mﾃ ﾃ柁>:ﾃｫﾂｱﾃﾂｴ (ﾃ｢ﾂｸﾃｧsﾃ竕暗ｩﾃｼﾃｯ竏づｨﾃｫﾃ①E:ﾃｨIﾃｳﾏ\)^mﾃ ﾃ" & return &ﾂｬ"s:^m" & return & "r:^mﾃ ﾃ" & return after cNMnewMacro-- put "s:SET PAGe ON^m" & return & "r:^mﾃ ﾃ" & return after cNMnewMacro -- *put label1 & ":" & return & "*: TotalLabel : 1" & return after cNMnewMacro -- *-- put label1 & ":" & return & "s:SET PAGe OFF^m" & return & "r:^mﾃ ﾃ" & return &ﾂｬ-- "*: TotalLabel : 1" & return after cNMnewMacro -- *elseput "r:^mﾃ ﾃ" & return & m after cNMnewMacro-- put "s:SET PAGe OFF^m" & return & "r:^mﾃ ﾃ" & return after cNMnewMacro -- *put "*: TotalLabel : 0" & return after cNMnewMacroend ifend makeMacroon GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_4497.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to watchput the selectedText of me into cTextif cText is empty then exit mouseUpget char 2 to 4 of cTextif it is a number then-- if it is a number and it <> " " thenif char 1 of cText <> "*" thenput "*" into char 1 of line (word 2 of the selectedLine of me) of meput cd fld id 4 into listif list contains "-" then put shortNumber(list,false,true) into listput value(it) into item (the number of items of list) + 1 of listsort items of list numericelseput " " into char 1 of line (word 2 of the selectedLine of me) of meput cd fld id 4 into listif list contains "-" then put shortNumber(list,false,true) into listrepeat with r = 1 to the number of items of listif item r of list = it thendelete item r of listexit repeatend ifend repeatend ifif shortNum() then put shortNumber (list,true,true) into listput list into cd fld id 4end ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"put readLogFile2("ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ NEW",return & "ﾃ ﾃ",filePath,true,,1) into theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into cd fld id 1delete line 1 to 2 of theLogput delLine(theLog,4,true) into theLogput theLog into cd fld id 2if the hilite of cd btn id 9 is false thenput empty into cd fld id 4set the hilite of cd btn id 8 to falseend ifLoadCard 4497if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 4497,trueend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>10</left>
<top>274</top>
<right>152</right>
<bottom>313</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpaskListend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUpput cd fld id 2 into trepeat with r = 1 to the number of lines of tif char 1 of line r of t is "*" then put " " into char 1 of line r of tend repeatput t into cd fld id 2put empty into cd fld id 4set the hilite of cd btn id 8 to falseend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>158</left>
<top>294</top>
<right>211</right>
<bottom>312</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ALL</name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>158</left>
<top>275</top>
<right>211</right>
<bottom>293</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ﾃ･竕暗ｭﾃ</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> 1. ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\</text>
</content>
<name> 1. ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\</name>
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 4set the hilite of cd btn id 8 to falseset the hilite of cd btn id 9 to falseend clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMnewMacroset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cd fld id 4 into list-- if shortNum() is false thenput shortNumber(list,true,true) into list-- end ifif the hilite of cd btn id 8 then put "ALL" into listput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put "m: ﾃｧﾂｰﾃｨTﾃﾃεﾂｮﾃｭmﾃﾃﾃﾏ\ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:GO NEW^m" & return into macroput "r:^mﾃ ﾃ" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return into mif list <> empty thenput line 1 of cd fld id 2 into fTitleif fTitle <> empty thenput " " into char 1 of fTitleend if-- ﾃｨﾃ禿ｯﾃ津邃｢ﾃｯﾅ禿ｧXﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃﾃ暗ｨﾃ催ｧﾃ｡ﾃ②ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ厩ﾃ鵜ﾃ叡ﾃ益ﾃ③put nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put nextLabel() into label4put nextLabel() into label5if fTitle <> empty and list <> "ALL" thenput nextLabel() into label6put "r:" & fTitle & "ﾆ" & label6 & ":^mﾃ ﾃ" & return after macroend ifput m & "*: ﾃｨﾃ禿ｯﾃ津ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:" & list & "^m" & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label4 & ":^mﾃ ﾃｼﾃｮ窶佚ｧﾃ愿ｱﾃｮﾃﾃ陛嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃï｣ｿ" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label2 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"s:^m" & return &ﾂｬlabel5 & ":" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label4 & ":^mﾃﾂｮﾃｭmﾃﾃﾃﾏ\ AN" & return &ﾂｬ"t:" & label3 & ":1:." & return &ﾂｬ"j:" & label5 & return &ﾂｬlabel4 & ":" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"t:" & label1 & ":1:." & return &ﾂｬ"j:" & label4 & return after macroif fTitle <> empty and list <> "ALL" thenput label6 & ":" & return &ﾂｬ"s:SET PAGe OFF^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬ"s:^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return after macroend ifput label1 & ":" & return after macroelseput m after macroend if-- put "s:SET PAGe ON^m" & return & "r:^mﾃ ﾃ" & return after macro -- *put checkLabel(macro) into labelListput "*: TotalLabel :" && the number of items of labelList & return after macroput macro after cNMnewMacroend makeMacroon GComBtnreturn "cd btn id 3"end GComBtnon scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_15363.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput BBSFileList() into cd fld id 3end mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>47</top>
<right>193</right>
<bottom>302</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>fileList</name>
<script>on mouseUpset the cursor to watchput postPath() into postPathput value(the clickLine) into fileNameif fileName <> empty thenput postPath & fileName into filePathif there is not a file filePath thenbeepanswer fileName && "ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"elseput EditorPath() into editoropen filePath with editorend ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>283</top>
<right>380</right>
<bottom>308</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24004</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput postPath() into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,,"postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"put BBSFileList() into cd fld id 3end ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>74</top>
<right>489</right>
<bottom>273</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>47</top>
<right>489</right>
<bottom>75</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osakaﾃ❶ﾃｬﾃｴﾃｯﾃｹ</font>
<textSize>12</textSize>
<textStyle>group</textStyle>
<textHeight>14</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>22</left>
<top>33</top>
<right>193</right>
<bottom>48</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>206</left>
<top>33</top>
<right>377</right>
<bottom>48</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ</name>
<script>on mouseUpvisual effect dissolve very fastgo to cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ"end mouseUp</script>
<script>on openCardif the hilite of cd btn id 6 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" then get "276,60,327,62"else get "348,60,399,62"set the rect of cd btn id 13 to itif the marked of this cd or cd fld id 3 <> empty then put BBSFileList() into cd fld id 3pass openCardend openCardon controlKey whichKey-- set cursor to watchif whichKey = 3 then -- CsendBtn "cd btn id 2"else if whichKey = 4 then -- DsendBtn "cd btn id 5"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 3end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMvariableList,cNMBBS_set the cursor to watchput bg fld "subMenu" into cdName-- put cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameget dataCheck()if "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦" is in it thenput empty into cd fld id 3makeMacroError it,"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｳLﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③",cdNameexit makeMacroelseput it into fileListend ifput postPath() into postPathrepeat with r = 1 to the number of lines of fileListput line r of fileList into fileNameif char 1 of fileName <> "_" thenput fileListInFldr(postPath) into postListput changeName ("_" & fileName,postList) into newNameMtRenameFile postPath & fileName,newNameput newName into fileNameput fileName into line r of fileListend ifput postPath & fileName into filePathput filePath & return after cNMmacroReport-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"if "(" is in fileName thenput word 1 of char 1 to offset("(",fileName) - 1 of fileName into roomif room is "_BBS" thenput char offset("(",fileName) + 1 to offset(")",fileName) - 1 of fileName into roomend ifelseput word 1 of char 1 to offset("-",fileName) - 1 of fileName into roomif room is "_BBS" thenput fileName into roomdelete char 1 to 5 of roomput word 1 of room into roomif ";" is in room thenput char 1 to (offset(";",room) - 1) of room into roomend ifif "-" is in room thenput char 1 to (offset("-",room) - 1) of room into roomend ifif "_" is in room thenput char 1 to (offset("_",room) - 1) of room into roomend ifif the hilite of cd btn id 6 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" and room <= the number of lines of bg fld "BBSnameList1" thenput line room of bg fld "BBSnameList1" into roomput char 1 to offset(".",room) - 1 of room into roomif room is empty thenput 0 into roomend ifelseif char 1 of room is 6 thenput "-" after char 1 of roomelseput "-" before last char of roomend ifput the itemDelimiter into prevDset the itemDelimiter to "-"if item 2 of room is 0 then put char 1 to offset("-",room) - 1 of room into roomset the itemDelimiter to prevDend ifelsedelete char 1 of roomend ifend ifput BBSNum(room) into BBSnif BBSn is empty thenput "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃﾃεｮ窶佚ｧﾃ愿邃｢ﾃ､窶佚 ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③" & return & fileName & return after cNMmacroReportnext repeatend ifput item 1 of BBSn into n1put item 2 of BBSn into n2if n2 is empty then get n1 else get n1 & "-" & n2put roomNum(it) into room--put "cNMBBS_" & addZero(n1,2) & "_" & n2 into vNameif n1 is not a integer thenput getCdName(room) into rNameif rName <> empty thenget BBSNum(char 1 to offset(".",rName) - 1 of rName)put "cNMBBS_" & addZero(item 1 of it,2) & "_" & item 2 of it into vNameend ifend ifput vName & "a" into vNameAput vName & "b" into vNameBdo "global" && vNameBif MtScanList (cNMvariableList,vNameA,,true) is empty thenputVariableName vNameAdo "global" && vNameAput macro1(n1,n2) into mput "r:^mBBS>" & return after mdo "put m into" && vNameAend ifif MtScanList (cNMvariableList,vNameB,,true) is empty thenputVariableName vNameBdo "put empty into" && vNameBend if-- if MtScanList (cNMvariableList,cNMBBS_END,,true) is empty then-- putVariableName "cNMBBS_END"-- global cNMBBS_END-- put macro6() into cNMBBS_END-- end ifput nextLabel() into label1put "m:" && getCdName(room,true) && "ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:COMpose^m" & return &ﾂｬ"r:ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E) ﾆ" & label1 & ":^mBBS>" & return &ﾂｬ"m:" && fileName & return &ﾂｬ"u:" & fileName & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label1 & ":^mBBS>" & return &ﾂｬ"*: ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ [" & return &ﾂｬ"s:0^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:ﾃﾂｻﾃﾂｵ^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return & "r:^mBBS>" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"*: TotalLabel : 1" & return into macrodo "put macro after" && vNameBend repeatput fileList into cd fld id 3end makeMacro-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckget BBSFileList()if it is empty thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｧ窶ｺﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & returnelsereturn itend ifend dataCheck----------on scrFldsetScrollFld "cd fld id 3"end scrFld</script>
</card>
card_8508.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal ListSelectExitset the cursor to watchput (the shiftKey is down) into shput the selectedText of me into cTextif cText <> empty thenput item 1 of cText into forumNameput item 2 of cText into scanIDput item 3 of cText into scanDatedelete item 1 to 3 of cTextif "ﾃ⑦" is in cText then put char 1 to offset("ﾃ⑦",cText) - 1 of cText into cTextif the optionKey is up thenput empty into ScanListif sh is false thenput the number of cds of this bg into npush cardset the lockmessages to truelock screenrepeat with r = 1 to ngo to cd r of this bgput bg fld id 3 into titleListif bg fld id 22 is forumName and scanID is in titleList thenput MtPickUpLines(titleList,scanID) into ScanListput the number of lines of ScanList into nrepeat with r = n down to 1if char 7 to 14 of line r of ScanList <> scanID then delete line r of ScanListend repeatexit repeatend ifend repeatpop cardunlock screenend ifif ScanList <> empty thenput cText into sList-- if sList is "ALL" then put empty into sListif sList is "ALL" then put "1-" & the number of lines of ScanList into sListif "-" is in sList thenput shortNumber(sList,false,true) into sListend ifget the mouseclickput ListSelect ("3#",ScanList,"s=" & sList,"ﾃｩwﾃｭﾃ凝ｯﾅ禿ｧXﾃ⑴ﾃ｢ï｣ｿﾃｨﾃｺ [" & forumName & "]" && scanID && quote & cText & quote,"16,36",return,"ASLFont+,9",2002) into sListput Switch(sList) into sListget ListSelectExitelsesend "mouseUp forumName,scanID,scanDate" to cd btn id 5get the resultend ifelseget "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ"end ifif it is "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" thendelete the selectedLine of meelse if it is "OK" thenif sList is empty or the number of lines of ScanList = the number of items of sList thenput line 1 of ScanList into titleput "ALL" into sListelseput line (item 1 of sList) of ScanList into titleput shortNumber(sList,true,true) into sListend ifdelete char 1 to 30 of titleput forumName & "," & scanID & "," & scanDate & "," & sList & "ﾃ⑦" & title into the selectedLine of cd fld 1end ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>9</left>
<top>273</top>
<right>340</right>
<bottom>314</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 1 to the hilite of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name> BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ </name>
<script>on mouseUpvisual effect dissolve very fastgo to cd " BBS ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>276</left>
<top>284</top>
<right>332</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｩwﾃｭﾃ凝ｭﾂｫﾃ｢ﾂ｡</name>
<script>on mouseDownglobal CNMBBSRoomwait 20if the mouse is down thenif (item 4 of the screenRect - the bottom of cd window) < 100 then get "275,95"else get the topLeft of meUxPop bg fld "BBSmenu",,,itif it is empty then exit mouseDownif the shiftKey is down and last char of it is "ﾃ⒀" thendelete last char of itput the number of chars of it into wrepeat with r = w down to 1if char r of it is "ﾃ⑿" thenget char r + 1 to w of itexit repeatend ifend repeatelseget char 1 to offset(".",it) - 1 of itend ifif it <> empty thenput it into item 1 of CNMBBSRoommouseUpexit to hyperCardend ifend ifend mouseDownon mouseUp forumName,scanID,scanDateglobal CNMBBSRoomput "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｮ窶佚ｧﾃ,ﾃ･ﾃｼﾃｧﾄｱID,ﾃ･ﾃｼﾃｧﾄｱﾃｬﾋ凖ｯtﾃ⑿'YYMMDD' ﾃｨﾂｻﾃｳ邃｢ﾃ｢ﾂｬﾃ⒀" into promptput "OK,Cancel" into dlogBtnput (scanID <> empty) into modeif mode thenput "ﾃｩwﾃｭﾃ凝ｯﾅ禿ｧXﾃ⑴ﾃ｢ï｣ｿﾃｨﾃｺ" into dlogNameput ",ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" after dlogBtnget forumName & "," & scanID & "," & scanDateelseput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝ｭﾂｫﾃ｢ﾂ｡" into dlogNameget CNMBBSRoomend ifget InputDialog(dlogName,prompt,it,dlogBtn)set the cursor to watchif line 2 of it is "OK" thenput char 1 of line 1 of it into nput line 3 of it into forumNameput upperLower(line 4 of it) into scanIDput line 5 of it into scanDateif forumName is empty or scanID is empty then exit mouseUpif checkID(scanID) is false thenbeepanswer "ID ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃｭﾂｺﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"send "mouseUp forumName,scanID,scanDate" to meexit to HyperCardend ifif scanDate <> empty and checkDATE(scanDate) is false thenbeepanswer "ﾃｬﾋ凖ｯtﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃｭﾂｺﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"send "mouseUp forumName,scanID,scanDate" to meexit to HyperCardend ifget forumName & "," & scanIDput cd fld "readList" into listput item 1 of MtScanList(list,it) into pget it & "," & scanDate & ",ALL"if mode is false then put it into CNMBBSRoomif p <> empty then put it into line p of listelse put it & return after listsort lines of listput list into cd fld "readList"return emptyelse if line 2 of it is "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" thenreturn "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ"end ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>31</id>
<text>None</text>
</content>
<content>
<layer>background</layer>
<id>32</id>
<text>None</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text> BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </text>
</content>
<content>
<layer>background</layer>
<id>22</id>
<text> - </text>
</content>
<name> BBS IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </name>
<script>on openCardglobal CNMBBSreadListset the cursor to watchput line 1 to 400 of CNMBBSreadList into cd fld id 1pass openCardend openCardon closeCardglobal CNMBBSreadListput cd fld id 1 into CNMBBSreadListset the lockText of cd fld id 1 to trueset the hilite of cd btn id 3 to truepass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃï｣ｿﾃｫSﾃﾆ津｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableList,cNMmacroReportset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put the hilite of cd btn id 8 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" into breakput cd fld "readList" into readListput the number of lines of readList into nrepeat with r = 1 to nget line r of readListput item 1 of it into roomput BBSNum(room) into BBSnif BBSn is empty thenput "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃﾃεｮ窶佚ｧﾃ愿邃｢ﾃ､窶佚 ﾂｷﾃﾂ｡ﾃﾆ津ﾂ｢ﾃ窶ｹﾃ竏妥③" & return & it & return after cNMmacroReportnext repeatend ifput item 1 of BBSn into n1put item 2 of BBSn into n2put item 2 of it into ScanIDput item 3 of it into ScanDateif checkDATE(ScanDate) is false then put empty into ScanDateif ScanDate <> empty and ScanID <> empty thenput "DATE&ID" into modeelseput "ID" into modeend ifif checkID(ScanID) is false then next repeatdelete item 1 to 3 of itif "ﾃ⑦" is in it then get char 1 to offset("ﾃ⑦",it) - 1 of itBBSMacro room,n1,n2,ScanID,ScanDate,,mode,it,true,breakend repeatput empty into cd fld id 1end makeMacro-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput empty into rtif cd fld id 1 is empty thenput "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝邃｢ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtend ifreturn rtend dataCheck</script>
</card>
card_45745.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the shiftKey is down thenput cd fld id 1 into listput the number of lines of list into nrepeat with r = 1 to nset cursor to busyif r < 100 then put putspace(r,2,"R") into char 2 to 3 of line r of listelse put putspace(r,3,"R") into char 2 to 4 of line r of listend repeatput list into cd fld id 1put "ﾃｩﾃ崚ｪMﾃｪﾃｮﾃ⑦" & n into cd fld id 3elseopenEditLogend ifend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>430</left>
<top>30</top>
<right>504</right>
<bottom>46</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>listNum</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ</name>
<script>on mouseUp filePathglobal cNMautoReadset the cursor to watchput "ﾃｩﾃ崚ｪMﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｭﾃ"-- put "ﾃｮ窶佚ｧﾃ ﾃｫﾃｳﾃｪMﾃｩ窶 ﾃｬﾋ凖ｯt " into KY1put "MAIL>REAd" into KY1put return & "ﾃ ﾃ" into KY2put readLogFile2(KY1,KY2,filePath,,,1) into theLogif theLog <> "Cancel" thenput line 1 to 2 of theLog into cd fld id 2put line 3 of theLog into cd fld id 3delete line 1 to 4 of theLog-- put the number of lines of theLog into n-- put (char 1 to 4 of line 2 of theLog is " ") into mode-- if mode then put n div 2 into n-- put "ﾃｩﾃ崚ｪMﾃｪﾃｮﾃ⑦" & n into cd fld id 3repeat until the length of theLog < 30000delete last line of theLogif mode then delete last line of theLogend repeatput theLog into cd fld id 1LoadCard 9842if bmSetting(the short name of this cd) and cNMautoRead thenbookmark 9842,trueend ifend ifhide msgend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>303</top>
<right>20</right>
<bottom>315</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the locktext of cd fld id 1 to not(the locktext of cd fld id 1)end mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpvisual effect barn door close fast to inversevisual effect barn door open fastgo to cd "11. ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃｧﾆ津ｩﾃ崚ｪMﾃ⑴ﾃｧﾃ古ｨﾃｺ"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> ﾃｩﾃ崚ｪMﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ </text>
</content>
<content>
<layer>background</layer>
<id>63</id>
<highlight> <true /> </highlight>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text>-</text>
</content>
<content>
<layer>background</layer>
<id>11</id>
<text>-</text>
</content>
<name> ﾃｩﾃ崚ｪMﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳ </name>
<script>on closeCardset the locktext of cd fld id 1 to truepass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 3end clearDataon makeMacroglobal cNMmacroReport,cNMvariableList,cNM_MAIL,cNM_MAIL3REAset the cursor to watchput bg fld "subMenu" into cdNameput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameput "ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" & return after cNMmacroReportif MtScanList (cNMvariableList,"cNM_MAIL",,true) is empty thenput empty into cNM_MAILputVariableName "cNM_MAIL"put MacroGoMail() after cNM_MAILend ifif MtScanList (cNMvariableList,"cNM_MAIL3REA",,true) is empty thenputVariableName "cNM_MAIL3REA"put nextLabel() into labelput "m: ﾃｬdﾃｩqﾃ嘉 ﾃ [ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃｩﾃ甘ｬﾃｦ" & return &ﾂｬ"s:REAd^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label & ":^mMAIL>" & return &ﾂｬ"s:E^m" & return & "r:^mMAIL>" & return &ﾂｬlabel & ":" & return &ﾂｬ"*: TotalLabel : 1" & return into cNM_MAIL3REAend ifend makeMacroon GComBtnreturn "cd btn id 4"end GComBtnon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_10001.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃｩwﾃｭﾃ凝ï｣ｿﾃ｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifsend "mouseUp true" to bg btn id 60end clearData</script>
</card>
card_56595.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownput word 2 of the clickLine into Lput line L of cd fld id 1 into cTextif cText is empty then exit mouseDownset the cursor to watchwait 10if the mouse is "down" thenselectWSEAList Lput bg fld "subMenuList" into listput MtScanList(list," WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ ﾃ催ｳﾃｳ ",,true) into xif x <> empty then delete line (item 1 of x) of listput "ﾃｯﾅ禿ｧX," & switch(list) & "-,ﾃｪVﾃ｣Kﾃ雨ﾃ [ﾃ栄...;ﾃｧﾃ古ｨﾃｺ" into listUxPop list,,,the clickLocif it <> empty then mouseUp cText,itselect emptyexit to HyperCardend ifend mouseDownon mouseUp cText,cdNameif cText is empty then put the value of the clickline into cTextif cText is empty then exit mouseUpput word 2 of the clickLine into cLineselectWSEAList cLineif the optionKey is down or cdName is "ﾃｧﾃ古ｨﾃｺ" then get "D. ﾃｧﾃ古ｨﾃｺ"else if the shiftKey is down or the mouse is down or cdName <> empty then get "R. ﾃｯﾅ禿ｧX"elseanswer quote & cText & quote & return & return & "ﾃﾂｱﾃﾃε･ﾃｼﾃｧﾄｱﾃｩwﾃｭﾃ凝ï｣ｿﾃﾂｫﾃﾂｧﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "D. ﾃｧﾃ古ｨﾃｺ" or "R. ﾃｯﾅ禿ｧX" or "Cancel"end ifif it is "D. ﾃｧﾃ古ｨﾃｺ" thendelete line cLine of cd fld id 1else if it is "R. ﾃｯﾅ禿ｧX" thenset the cursor to watchlock screenif cText <> empty thenif cdName is empty then put " WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｬﾂｸﾃｳﾃ " into cdNameif cdName is "ﾃｪVﾃ｣Kﾃ雨ﾃ [ﾃ栄..." thengo to last cd of this bgdoMenu "new card"else go to cd cdNameif the short name of this cd <> " WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃ ﾃ催ｳﾃｳ " thensend "mouseUp true" to bg btn id 60put word 1 of cText into bg fld id 30set the hilite of bg btn id 47 to (word 2 of cText is "R")delete word 1 to 3 of cTextput "WSEA" && cText into bg fld id 58if "FORward" is not in cText and "THRead" is not in cText and "REVerse" is not in cText thenput "ﾃｩwﾃｭﾃ凝ﾂｻﾃﾂｵﾃ⑿ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｪ窶ｺﾃｭﾃ凝窶ｦﾃﾃ甘ﾃ暗⒀" into bg fld id 32end ifrepeat until cText is emptyput offset(" ",cText) into xif x is 0 then put the number of chars of cText + 1 into xget char 1 to x - 1 of cTextdelete char 1 to x of cTextif last char of it <> "'" and (char 1 to 5 of it is "NAMe:" or char 1 to 6 of it is "TITLE:") thenput offset("'",cText) into xput " " & char 1 to x of cText after itdelete char 1 to x of cTextend ifif char 1 to 5 of it is "ROOM:" thendelete char 1 to 5 of itput it into bg fld id 31else if it is "FORward" thenput "ﾃ･竏堙ﾂ｢ﾃｮ竕 ﾃ･ﾃｦﾃﾂｩﾃﾃﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ窶ｦﾃ･ﾃｼﾃｧﾄｱ" into bg fld id 32else if it is "THRead" thenput "ﾃ謁ﾃ陰ﾃ嘉･ﾃ嘉ｬﾃ曳ﾃ嘉､ﾃ嘉ｬﾃ丑ﾃｨﾃ｡ﾃ窶ｦﾃ･ﾃｼﾃｧﾄｱ" into bg fld id 32else if it is "REVerse" thenput "ﾃｪVﾃﾂｵﾃﾂ｢ﾃｮ竕 ﾃ･ﾃｦﾃﾂｩﾃﾃﾃ･竏堙ﾂ｢ﾃｮ竕 ﾃ･ﾃｦﾃｨﾃ｡ﾃ窶ｦﾃ･ﾃｼﾃｧﾄｱ" into bg fld id 32else if char 1 to 5 of it is "DATe:" thenput "ﾃｬﾋ凖ｯtﾃｩwﾃｭﾃ" into bg fld id 33delete char 1 to 5 of itput char 1 to 6 of it into bg fld id 34if "-" is in it thenput "ﾃﾂｩﾃﾃ" into bg fld id 35put char 8 to 13 of it into bg fld id 36elseput "ﾃ ﾂｻﾃｧ~" into bg fld id 35end ifelse if char 1 to 5 of it is "DAYs:" thenput "ﾃｬﾋ凖ｪﾃｮﾃｩwﾃｭﾃ" into bg fld id 33delete char 1 to 5 of itput it into bg fld id 34else if char 1 to 3 of it is "ID:" thendelete char 1 to 3 of itput it into bg fld id 38else if char 1 to 5 of it is "NAMe:" thendelete char 1 to 6 of itdelete last char of itput it into bg fld id 39else if char 1 to 6 of it is "TITLE:" thendelete char 1 to 7 of itdelete last char of itput it into bg fld id 40else if char 1 to 5 of it is "TYPe:" thendelete char 1 to 5 of itset the hilite of bg btn id 44 to (it is "M")set the hilite of bg btn id 45 to (it is "W")else if it is "NEW" thenset the hilite of bg btn id 46 to trueelse if char 1 to 5 of it is "KEYW:" thendelete char 1 to 5 of itput item 1 of it into bg fld id 41put item 2 of it into bg fld id 42put item 3 of it into bg fld id 43end ifend repeatsend "openCard" to this cdput cLine into bg btn id 20set the name of bg btn id 20 to "ﾃｯﾅ ﾃｧX"end ifend ifend ifselect emptyend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>9</left>
<top>273</top>
<right>342</right>
<bottom>314</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 1 to the hilite of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｬﾂｸﾃｳﾃ</name>
<script>on mouseUpvisual effect dissolve fastgo to cd " WSEA ﾃ･ﾃｼﾃｧﾄｱﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄ﾃｬﾂｸﾃｳﾃ "end mouseUp</script>
<script>on closeCardset the lockText of cd fld id 1 to trueset the hilite of cd btn id 3 to truepass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃｩwﾃｭﾃ凝ï｣ｿﾃｫSﾃﾆ津｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1end clearData</script>
</card>
card_39807.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput the selectedText of me into cTextif cText is empty then exit mouseUpput word 1 of cText into forumNameput word 2 of cText into roomNumput word 3 of cText into mesNumdelete word 1 to 3 of cTextif the optionKey is up thenanswer forumName && "(" & roomNum & ")" && mesNum & return & quote & cText & quote & return & "ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"elseget "OK"end ifif it is "Cancel" thenselect line 0 of meexit mouseUpend ifset cursor to watchif the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" thenmarkList forumName,roomNum,forumName && roomNum && mesNum," "end ifdelete the selectedLine of meselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>9</left>
<top>273</top>
<right>406</right>
<bottom>314</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>276</left>
<top>284</top>
<right>332</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｮCﾃ 窶敕ｩwﾃｭﾃ</name>
<script>on mouseDownglobal CNMforumRoomwait 20if the mouse is down thenforumMenu 304,294get the resultif it <> empty thenput it into item 1 of CNMforumRoommouseUpexit to hyperCardend ifend ifend mouseDownon mouseUpglobal CNMforumRoomput "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ЖOﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄,ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ窶佚ｧﾃ,ﾃｮ竕 ﾃ･ﾃｦﾃｮ窶佚ｧﾃ愿⑿ﾃｯﾂｰﾃｪﾃｮﾃｩwﾃｭﾃ凝｢ﾂｬﾃ⒀" into promptput "OK,Cancel" into dlogBtnget InputDialog("ﾃｮCﾃ 窶敕ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ",prompt,CNMforumRoom,dlogBtn,"5ﾃ･ﾃ姪ｮ竕 ﾃ･ﾃｦﾃｮ窶佚ｧﾃ,3ﾃ･ﾃ姪ｮ竕 ﾃ･ﾃｦﾃｮ窶佚ｧﾃ")if line 2 of it is "OK" thenset the cursor to watchput char 1 of line 1 of it into nput upperLower(line 3 of it) into forumNameput line 4 of it into roomNumput line 5 of it into mesNumif mesNum is empty then exit mouseUpput cd fld id 2 into listput empty into lastNumput the number of cards of this bg into cnrepeat with r = 2 to cnset the cursor to busyif bg fld id 14 of cd r of this bg is forumName and bg fld id 87 of cd r of this bg is roomNum thenput bg fld id 111 of cd r of this bg into lastNumexit repeatend ifend repeatif lastNum is empty thenput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ" into cnrepeat with r = 1 to cnset the cursor to busyif bg fld id 14 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ" is forumName thenput bg fld id 58 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ" into mesListrepeat with l = 1 to the number of lines of mesListget line l of mesListif word 1 of it is roomNum thenput word 1 of char 6 to 10 of it into lastNumexit repeatend ifend repeatif lastNum is empty then put 99999 into lastNumexit repeatend ifend repeatend ifif forumName is empty or length(forumName) > 8 then exit mouseUpif roomNum is empty or roomNum < 1 or roomNum > 20 or roomNum is not a integer then exit mouseUpput forumName & "," & roomNum & "," & item 1 of mesNum into CNMforumRoomif "-" is in mesNum then put shortNumber(mesNum,false) into mesNumput the number of items of mesNum into irepeat with r = 1 to iget item r of mesNumif it is not a integer then next repeatif it < 1 or it > 65000 or ((lastNum - it) > 999 and (65000 - lastNum + it) > 999) thenbeepanswer "999ﾃｮ竕 ﾃ･ﾃｦﾃﾃ甘ﾃ凝ｫOﾃﾃ陛ｬﾂｫﾃïｬﾃﾂｱﾃ竏ﾃ邃｢ﾃｨoﾃｳﾃ ﾃ窶ｹﾃﾏ\ﾃﾃ津③"next repeatend ifget forumName && addzero(roomNum,2) && addzero(it,n) & " "if it is not in list then put it & return after listend repeatsort lines of listput list into cd fld id 2end ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 2 to the hilite of meend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>284</top>
<right>402</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUp rMarkglobal cNMDialogOFF,cNMRevertReadListif the optionKey is down thenif cNMRevertReadList <> empty then-- if cd fld id 2 <> empty thenbeepanswer "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝ï｣ｿﾃｯﾃｺﾃ｣Aﾃﾂｵﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "OK" or "Cancel"if it is "Cancel" then exit mouseUp-- end ifput cNMRevertReadList into cd fld id 2if the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" thenput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝厭ﾃ [ﾃ丑ﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ｭﾃ"resetList "*"hide msgend if-- put empty into cNMRevertReadListelseplay "boing"end ifelseif cd fld id 2 <> empty thenif cNMDialogOFF <> "true" thenbeepanswer "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝ï｣ｿﾃ｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit mouseUpend ifif the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" or rMark <> empty thenif the hilite of cd btn id 15 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" thenput "ﾃ､ﾋ佚ｬﾂｫﾃ厭ﾃ [ﾃ丑ﾃï｣ｿﾃｪ窶ｺﾃｭﾃ凝ｭﾃ"resetList rMarkelseput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝ï｣ｿﾃ｢ï｣ｿﾃｨﾃｺﾃｭﾃ"resetList " "end ifhide msgend ifput cd fld id 2 into cNMRevertReadListput empty into cd fld id 2end ifend ifend mouseUpon resetList mkput cd fld id 2 into listput empty into dlistput the number of lines of list into lnrepeat with r = 1 to lnset the cursor to busyget line r of listput word 1 of it into forumNameput word 2 of it into roomNumput word 3 of it into mesNumput word 1 of line (r + 1) of list into nextForumput word 2 of line (r + 1) of list into nextRoomput it & return after dlistif forumName <> nextForum or roomNum <> nextRoom or r = ln thenmarkList forumName,roomNum,dlist,mk,modeput empty into dListend ifend repeatend resetList</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ </name>
<script>on mouseUpvisual effect dissolve very fastif the optionKey is down then go to card id 40331else go to bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ "end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>14</id>
<text>LIST</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text> ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ嘉､ﾃ厩ﾃ曳 </text>
</content>
<content>
<layer>background</layer>
<id>112</id>
<text> ,,</text>
</content>
<content>
<layer>background</layer>
<id>116</id>
<text>-</text>
</content>
<name> ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ嘉､ﾃ厩ﾃ曳 </name>
<script>on openCardset the cursor to watchsort lines of cd fld id 2pass openCardend openCardon closeCardset the lockText of cd fld id 2 to trueset the hilite of cd btn id 5 to truepass closeCardend closeCardon clearDatalock screensend "mouseUp" to cd btn id 6end clearDataon delCardclearDataend delCardon controlKey whichKeyif whichKey = 1 then sendBtn "cd btn id 4" -- A "ﾃｮCﾃ 窶敕ｩwﾃｭﾃ"else pass controlKeyend controlKeyon markList forumName,roomNum,dlist,mkif length(word 3 of dlist) is 3 then put 26 into xelse put 30 into xput empty into cdNumrepeat with r = 2 to the number of cards of this bgput bg fld id 14 of cd r of this bg into cdForumNameput bg fld id 87 of cd r of this bg into cdRoomNumif cdForumName is forumName and cdRoomNum is roomNum thenput r into cdNumexit repeatend ifend repeatif cdNum is empty then exit markListrepeat with f = 1 to 3put "TITLElist" & f into fNameput bg fld fName of cd cdNum of this bg into mesListrepeat with r = 1 to the number of lines of dListset the cursor to busyput item 1 of MtScanList(mesList," " & (word 3 of line r of dList) & " ") into mxif mx <> empty thenput mk into char x of line mx of mesListend ifend repeatput mesList into bg fld fName of cd cdNum of this bgend repeatend markList----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMDialogOFF,prevModeset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cd fld id 2 into listsort lines of listif list is empty thenif cNMDialogOFF <> "true" thenget "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃﾃεｩwﾃｭﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & returnmakeMacroError it,"ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃﾃεｩwﾃｭﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③",cdNameelseput "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃﾃεｩwﾃｭﾃ凝邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & return after cNMmacroReportend ifexit makeMacroend ifput empty into dlistput empty into commandif the hilite of cd btn id 12 of cd id 40331 thenput item 1 of defaultMode() into prevModeelseput empty into prevModeend ifrepeat until list is emptyget line 1 of listput word 1 of it into forumNameput word 2 of it into roomNumput RTNRMN(forumName,roomNum) into modeif the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" thenif mode is "RTN" then put "ﾃｮ竕 ﾃ･ﾃｦﾃｮ窶佚ｧﾃ愿ｨﾃ｡" into melse put "ﾃ謁ﾃ陰ﾃ嘉･ﾃ嘉ｬﾃ曳ﾃ嘉､ﾃ嘉ｬﾃ丑" into melseput empty into mend ifput cdName && forumName && "MES:" & roomNum & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put forumName && "MES:" & roomNum && m & return after cNMmacroReportput item 1 of last line of MtScanList(list,forumName && roomNum,true) into yput line 1 to y of list into dlistdelete line 1 to y of listput (word 1 of line 1 of list <> forumName) into forumEndif command is empty or the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" then put "s:MES " into commandelse put "s:RX " into commandmacro dlist,command,forumName,roomNum,mode,forumEndif word 1 of list <> forumName then put empty into commandend repeatput cNMDialogOFF into dput the hilite of cd btn id 8 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" into hif h then put h into cNMDialogOFFsend "mouseUp" && quote & "=" & quote to cd btn id 6 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃ嘉､ﾃ厩ﾃ曳 "put d into cNMDialogOFFend makeMacroon macro list,command,forumName,roomNum,mode,forumEndglobal cNMvariableList,prevForum,prevModeput empty into mesNumListif forumName <> prevForum thenif the hilite of cd btn id 12 of cd id 40331 thenput item 1 of defaultMode() into prevModeelseput empty into prevModeend ifend ifput forumName into prevForumput (mode is "RMN") into rmnput the number of lines of list into lnrepeat with r = 1 to lnget line r of listput word 3 of it & "," after mesNumListend repeatput "cNM" & forumName & "_" into variableName1if MtScanList (cNMvariableList,variableName1,,true) is empty thendo "global" && variableName1do "put empty into" && variableName1putVariableName variableName1get MacroGoForum(forumName)do "put it after" && variableName1end ifput variableName1 & "MES" & roomNum & "R" into variableName2if MtScanList (cNMvariableList,variableName2,,true) is empty thendo "global" && variableName2do "put empty into" && variableName2putVariableName variableName2end ifput dataList(mesNumList) into mesNumListput (forumName & return is in cd fld id 1 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ烏ﾃ嘉｢ﾃ [ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ") into eCheckput the hilite of cd btn id 13 of cd id 40331 into pCheckput the hilite of cd btn id 14 of cd id 40331 into sCheckif pCheck thenif eCheck then put 3 into l else put 2 into lif sCheck is false thenadd 1 to lend ifelseput the number of lines of mesNumList into lend ifrepeat until mesNumList is emptyput line 1 to l of mesNumList into listdelete line 1 to l of mesNumListif the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" thenif rmn then put 2 into mode else put 1 into modeif mode <> prevMode thenget macro5(mode)do "put it after" && variableName2put mode into prevModeput "s:MES " into commandend ifend ifif pCheck thenif eCheck thenget macro2(list,forumName,roomNum,command,sCheck,rmn)elseget macro1(list,forumName,roomNum,command,sCheck,rmn)end ifelseif eCheck thenget macro4(list,forumName,roomNum,command,rmn)elseget macro3(list,forumName,roomNum,command,rmn)end ifend ifput checkLabel(it) into labelListput "*: TotalLabel : " & the number of items of labelList & return after itdo "put it after" && variableName2if the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" is false then put "s:RX " into commandend repeatif the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｪ窶ｺﾃｭﾃ" and forumEnd thenput item 1 of defaultMode() into modeif mode <> prevMode thenget macro5(mode)do "put it after" && variableName2end ifend ifend macrofunction macro1 list,forumName,roomNum,command,sCheck,rmnput "m: [ " & forumName & " ] MES:" & roomNum && "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return into mput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3if rmn thenput nextLabel() into label7end ifput command & roomNum & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾆ" & label3 & ":^mﾃ ﾃｼ" & return &ﾂｬ"r:^mCCS(.)>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mCCS(.)>" & return after mend ifput empty into label6bput the number of lines of list into nlrepeat with r = 1 to nlput nextLabel() into label4if sCheck then put nextLabel() into label5if r <> nl thenput nextLabel() into label6aend ifif label6b <> empty then put label6b & ":" & return after mput "s:#" & line r of list & "^m" & return &ﾂｬlabel4 & ":" & return after mif sCheck thenput "r:^mCCS(.)>ﾆ" & label5 & ":^mFORUM>" & return after melseput "r:^mCCS(.)>" & return after mend ifif r is nl thenif rmn thenput "t:" & label7 & ":1:." & return after melseput "t:" & label1 & ":1:." & return after mend ifput "j:" & label4 & return after melseput "t:" & label6a & ":1:." & return &ﾂｬ"j:" & label4 & return after mend ifif sCheck thenput label5 & ":" & return &ﾂｬ"t:" & label1 & ":1:." & return &ﾂｬ"j:" & label4 & return after mend ifput label6a into label6bend repeatif rmn thenput label7 & ":" & return &ﾂｬ"s:RC D^m" & return & "r:^mCCS(.)>" & return &ﾂｬ"j:" & label1 & return after mend ifput label3 & ":" & return &ﾂｬ"r:ﾃ竕､ﾃｳﾃｲﾃｳpﾆ" & label2 & ":ﾃ ﾃｼ" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mﾃ ﾃ" & return &ﾂｬlabel1 & ":" & return after mreturn mend macro1function macro2 list,forumName,roomNum,command,sCheck,rmnput nextLabel() into label1if rmn thenput nextLabel() into label5end ifput "m: [ " & forumName & " ] MES:" & roomNum && "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬcommand & roomNum & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mFORUM>" & return into mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mCCS(.)>" & return after mend ifput empty into label4bput the number of lines of list into nlrepeat with r = 1 to nlput nextLabel() into label2if sCheck then put nextLabel() into label3if r <> nl thenput nextLabel() into label4aend ifif label4b <> empty then put label4b & ":" & return after mput "s:#" & line r of list & "^m" & return &ﾂｬlabel2 & ":" & return after mif sCheck thenput "r:^mCCS(.)>ﾆ" & label3 & ":^mFORUM>" & return after melseput "r:^mCCS(.)>" & return after mend ifif r is nl thenif rmn thenput "t:" & label5 & ":1:." & return after melseput "t:" & label1 & ":1:." & return after mend ifput "j:" & label2 & return after melseput "t:" & label4a & ":1:." & return &ﾂｬ"j:" & label2 & return after mend ifif sCheck thenput label3 & ":" & return &ﾂｬ"t:" & label1 & ":1:." & return &ﾂｬ"j:" & label2 & return after mend ifput label4a into label4bend repeatif rmn thenput label5 & ":" & return &ﾂｬ"s:RC D^m" & return & "r:^mCCS(.)>" & return after mend ifput label1 & ":" & return after mreturn mend macro2----------function macro3 list,forumName,roomNum,command,rmnput "m: [ " & forumName & " ] MES:" & roomNum && "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return into mput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put command & roomNum & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾆ" & label3 & ":^mﾃ ﾃｼ" & return &ﾂｬ"r:^mCCS(.)>" & return after mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mCCS(.)>" & return after mend ifrepeat with r = 1 to the number of lines of listput "s:#" & line r of list & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mFORUM>" & return after mend repeatif rmn then put "s:RC D^m" & return & "r:^mCCS(.)>" & return after mput "j:" & label1 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"r:ﾃ竕､ﾃｳﾃｲﾃｳpﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ槌" & label2 & ":ﾃ ﾃｼ" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mﾃ ﾃ" & return &ﾂｬlabel1 & ":" & return after mreturn mend macro3function macro4 list,forumName,roomNum,command,rmnput nextLabel() into label1put "m: [ " & forumName & " ] MES:" & roomNum && "ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬcommand & roomNum & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mFORUM>" & return into mif command is "s:MES " thenput "s:SET PAUSE OFF^m" & return &ﾂｬ"r:^mCCS(.)>" & return after mend ifrepeat with r = 1 to the number of lines of listput "s:#" & line r of list & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ" & label1 & ":^mFORUM>" & return after mend repeatif rmn then put "s:RC D^m" & return & "r:^mCCS(.)>" & return after mput label1 & ":" & return after mreturn mend macro4function macro5 modeput nextLabel() into label1if mode is 1 then get "ﾃｮ竕 ﾃ･ﾃｦﾃｮ窶佚ｧﾃ愿ｨﾃ｡" else get "ﾃ謁ﾃ陰ﾃ嘉･ﾃ嘉ｬﾃ曳ﾃ嘉､ﾃ嘉ｬﾃ丑"return "m: ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃﾃεｬﾂｫﾃ窶ｺﾃｯﾋ堙⑿" & it & "ﾃ⒀" & return &ﾂｬ"s:OPT^m" & return &ﾂｬ"r:^mﾃ ﾃ柁" & label1 & ":^mFORUM>" & return &ﾂｬ"s:5^m" & return &ﾂｬ"r:^mﾃ⑦" & return &ﾂｬ"s:" & mode & "^m" & return &ﾂｬ"r:^mﾃ ﾃ" & return &ﾂｬlabel1 & ":" & return &ﾂｬ"*: TotalLabel : 1" & returnend macro5function RTNRMN forumName,roomNumif the hilite of cd btn id 1 of cd id 40331 then put "RTN" into mode else put "RMN" into modeput the number of cards of this bg into cnrepeat with r = 2 to cnput bg fld id 14 of cd r of this bg into cdForumName -- ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃｱﾂｺput bg fld id 87 of cd r of this bg into cdMESNo -- ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ窶佚ｧﾃif cdForumName is forumName and cdMESNo is roomNum thenget bg fld id 116 of cd r of this bgif it <> empty then put it into modeexit repeatend ifend repeatreturn modeend RTNRMNfunction defaultModeif the hilite of cd btn id 2 of cd id 40331 thenput "2,RMN" into melse put "1,RTN" into mreturn mend defaultMode--function dataList listif list <> empty thensort items of list numericput shortNumber(list,true,true) into listend ifif last char of list = "," then delete last char of listput empty into rListput the number of items of list into lnrepeat with r = 1 to lnget item r of listif length(last line of rList & it) > 70 thenput return into last char of rListend ifput it & "," after rListend repeatdelete last char of rListreturn rListend dataListon scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_43890.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset the cursor to watchput postPath() into postPathput the selectedText of me into fileNameif fileName <> empty thenput postPath & fileName into filePathif there is not a file filePath thenbeepanswer fileName && "ﾃ邃｢ﾃ･ﾂｩﾃﾂｬﾃﾂｩﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③"elseput EditorPath() into editoropen filePath with editorend ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>284</top>
<right>493</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ､mﾃｮF</name>
<script>on mouseUpput BULFileList() into cd fld id 2end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>355</left>
<top>283</top>
<right>380</right>
<bottom>308</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24004</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺ</name>
<script>on mouseUpput postPath() into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,,"postﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃﾂｩﾃﾃ"put BULFileList() into cd fld id 2end ifend mouseUp</script>
<script>on openCardif the marked of this cd or cd fld id 2 <> empty then put BULFileList() into cd fld id 2pass openCardend openCardon controlKey whichKey-- set cursor to watchif whichKey = 3 then -- CsendBtn "cd btn id 3"else if whichKey = 4 then -- DsendBtn "cd btn id 4"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ [ﾃ運ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 2end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMmacroReport,cNMvariableListset the cursor to watchput bg fld "subMenu" into cdName-- put cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"ReportCdNameget dataCheck()if "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦" is in it thenput empty into cd fld id 2makeMacroError it,"ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｳLﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③",cdNameexit makeMacroelseput it into fileListend ifput postPath() into postPathrepeat with r = 1 to the number of lines of fileListput line r of fileList into fileNameif char 1 of fileName <> "_" thenput fileListInFldr(postPath) into postListput changeName ("_" & fileName,postList) into newNameMtRenameFile postPath & fileName,newNameput newName into fileNameput fileName into line r of fileListend ifput postPath & fileName into filePathput filePath & return after cNMmacroReport-- ﾃｯ竏づｨﾃｫﾃｨIﾃｳﾏ\ﾃｯ竏づｩﾃｶﾃｳﾃ津ﾃεｯﾅ禿ｧXﾃ①"/E" --> "/POST"changeEndMark filePathput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put char 2 to (offset("-",fileName) - 1) of fileName into forumName-- GO Forumput "cNM" & forumName & "_" into variableNamedo "global" && variableNameif MtScanList (cNMvariableList,variableName,,true) is empty thendo "put empty into" && variableNameputVariableName variableNameget MacroGoForum(forumName)do "put it after" && variableNameend ifput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put "m:" && "[" && forumName && "]" && "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ" & return &ﾂｬ"s:BUL^m" & return &ﾂｬ"r:^mBBS>ﾆ" & label2 & ":ﾃ ﾃｼﾃﾂｱﾃﾃε｣@ﾃｮ¥ﾃﾃ陛ｱ{ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ﾃ竕暗ﾃ陛竕､ﾃｳﾃｲﾃｳpﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津 ﾃｼ" & return into macroput "s:COMpose^m" & return &ﾂｬ"r:ﾃｨIﾃｳﾏ\ﾃﾃ陛ｧsﾃｬ邃｢ﾃ竕/E) ﾆ" & label1 & ":ﾃ竕暗ﾂｴﾃ窶ｹﾃﾏ\ﾃﾃ津 ﾃｼ" & return &ﾂｬ"m:" && fileName & return &ﾂｬ"u:" & fileName & return &ﾂｬlabel1 & ":" & return &ﾂｬ"r:^mﾃ⑦ﾆ" & label3 & ":^mBBS>" & return &ﾂｬ"*: ﾃ･ﾃｼﾃｧﾄｱﾃ鵜ﾃ [" & return &ﾂｬ"s:0^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:ﾃﾂｻﾃﾂｵ^m" & return & "r:^mﾃ⑦" & return &ﾂｬ"s:1^m" & return & "r:^mBBS>" & return &ﾂｬ"j:" & label3 & return after macroput label2 & ":" & return &ﾂｬ"r:^mFORUM>ﾆ" & label3 & ":^mﾃ ﾃ" & return &ﾂｬlabel3 & ":" & return after macroput checkLabel(macro) into labelListput "*: TotalLabel :" && the number of items of labelList & return after macrodo "put macro after" && variableNameend repeatput fileList into cd fld id 2end makeMacro-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckget BULFileList()if it is empty thenreturn "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ邃｢ﾃｧ窶ｺﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" & returnelsereturn itend ifend dataCheckon scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_68697.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpglobal ListSelectExitset the cursor to watchput (the shiftKey is down) into shput the selectedText of me into cTextif cText <> empty thenput item 1 of cText into forumNameput item 2 of cText into scanIDput item 3 of cText into scanDatedelete item 1 to 3 of cTextif "ﾃ⑦" is in cText then put char 1 to offset("ﾃ⑦",cText) - 1 of cText into cTextif the optionKey is up thenput empty into ScanListif sh is false thenput the number of cds of this bg into npush cardset the lockmessages to truelock screenrepeat with r = 1 to ngo to cd r of this bgput bg fld id 3 into titleListif bg fld id 22 is forumName and scanID is in titleList thenput MtPickUpLines(titleList,scanID) into ScanListput the number of lines of ScanList into nrepeat with r = n down to 1if char 7 to 14 of line r of ScanList <> scanID then delete line r of ScanListend repeatexit repeatend ifend repeatpop cardunlock screenend ifif ScanList <> empty thenput cText into sList-- if sList is "ALL" then put empty into sListif sList is "ALL" then put "1-" & the number of lines of ScanList into sListif "-" is in sList thenput shortNumber(sList,false,true) into sListend ifget the mouseclickput ListSelect ("3#",ScanList,"s=" & sList,"ﾃｩwﾃｭﾃ凝ｯﾅ禿ｧXﾃ⑴ﾃ｢ï｣ｿﾃｨﾃｺ [" & forumName & "]" && scanID && quote & cText & quote,"16,36",return,"ASLFont+,9",2002) into sListput Switch(sList) into sListget ListSelectExitelsesend "mouseUp forumName,scanID,scanDate" to cd btn id 5get the resultend ifelseget "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ"end ifif it is "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" thendelete the selectedLine of meelse if it is "OK" thenif sList is empty or the number of lines of ScanList = the number of items of sList thenput line 1 of ScanList into titleput "ALL" into sListelseput line (item 1 of sList) of ScanList into titleput shortNumber(sList,true,true) into sListend ifdelete char 1 to 30 of titleput forumName & "," & scanID & "," & scanDate & "," & sList & "ﾃ⑦" & title into the selectedLine of cd fld 1end ifend ifselect line 0 of meend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mepass mouseLeaveend mouseLeave</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>9</left>
<top>273</top>
<right>340</right>
<bottom>314</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>286</top>
<right>118</right>
<bottom>302</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
<script>on mouseUpset the lockText of cd fld id 1 to the hilite of meend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name> BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ </name>
<script>on mouseUpvisual effect dissolve very fastgo to cd " BUL ﾃｨﾃｫﾃﾂｴﾃｧﾃｻﾃ窶ｺ "end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>276</left>
<top>284</top>
<right>332</right>
<bottom>304</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｩwﾃｭﾃ凝ｭﾂｫﾃ｢ﾂ｡</name>
<script>on mouseDownglobal CNMBULRoomwait 20if the mouse is down thenforumMenu 304,294get the resultif it <> empty thenput it into item 1 of CNMBULRoommouseUpexit to hyperCardend ifend ifend mouseDownon mouseUp forumName,scanID,scanDateglobal CNMBULRoomput "ﾃ液ﾃ羽ﾃ [ﾃ嘉｢ﾃ嘉ЖOﾃ嘘ﾃ厭ﾃ嘉ｬﾃ栄,ﾃ･ﾃｼﾃｧﾄｱID,ﾃ･ﾃｼﾃｧﾄｱﾃｬﾋ凖ｯtﾃ⑿'YYMMDD' ﾃｨﾂｻﾃｳ邃｢ﾃ｢ﾂｬﾃ⒀" into promptput "OK,Cancel" into dlogBtnput (scanID <> empty) into modeif mode thenput "ﾃｩwﾃｭﾃ凝ｯﾅ禿ｧXﾃ⑴ﾃ｢ï｣ｿﾃｨﾃｺ" into dlogNameput ",ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" after dlogBtnget forumName & "," & scanID & "," & scanDateelseput "ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝ｭﾂｫﾃ｢ﾂ｡" into dlogNameget CNMBULRoomend ifget InputDialog(dlogName,prompt,it,dlogBtn)set the cursor to watchif line 2 of it is "OK" thenput char 1 of line 1 of it into nput upperLower(line 3 of it) into forumNameput upperLower(line 4 of it) into scanIDput line 5 of it into scanDateif forumName is empty or scanID is empty then exit mouseUpif length(scanID) <> 8 or char 4 to 8 of scanID is not a integer thenbeepanswer "ID ﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃｭﾂｺﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③"send "mouseUp forumName,scanID,scanDate" to meexit to HyperCardend ifget forumName & "," & scanIDput cd fld "readList" into listput item 1 of MtScanList(list,it) into pget it & "," & scanDate & ",ALL"if mode is false then put it into CNMBULRoomif p <> empty then put it into line p of listelse put it & return after listsort lines of listput list into cd fld "readList"return emptyelse if line 2 of it is "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ" thenreturn "ﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺ"end ifend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>31</id>
<text>None</text>
</content>
<content>
<layer>background</layer>
<id>32</id>
<text>None</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text> BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </text>
</content>
<content>
<layer>background</layer>
<id>22</id>
<text> - </text>
</content>
<name> BUL IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺ </name>
<script>on openCardglobal CNMBULreadListset the cursor to watchput line 1 to 400 of CNMBULreadList into cd fld id 1pass openCardend openCardon closeCardglobal CNMBULreadListput cd fld id 1 into CNMBULreadListset the lockText of cd fld id 1 to trueset the hilite of cd btn id 3 to truepass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "IDﾃｩwﾃｭﾃ凝ｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃï｣ｿﾃｫSﾃﾆ津｢ï｣ｿﾃｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld id 1end clearData----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameget dataCheck()if it <> empty thenmakeMacroError it,"ﾃｪ窶ｺﾃｭﾃ凝邃｢ﾃｯsﾃｨ¥ﾃｯ邃｢ﾃ竕暗竏妥③",cdNameexit makeMacroend ifput cdName & "ﾃ①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ ﾃｴﾃ ﾃｴﾃ ﾃｴ"put the hilite of cd btn id 8 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ" into breakput cd fld "readList" into readListput the number of lines of readList into nrepeat with r = 1 to nget line r of readListput item 1 of it into forumNameput item 2 of it into ScanIDput item 3 of it into ScanDateif checkDATE(ScanDate) is false then put empty into ScanDateif ScanDate <> empty and ScanID <> empty thenput "DATE&ID" into modeelseput "ID" into modeend ifif checkID(ScanID) is false then next repeatdelete item 1 to 3 of itif "ﾃ⑦" is in it then get char 1 to offset("ﾃ⑦",it) - 1 of itBULMacro forumName,ScanID,ScanDate,,it,mode,break,trueend repeatput empty into cd fld id 1end makeMacro-- ﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑function dataCheckput empty into rtif cd fld id 1 is empty thenput "ﾃ烏ﾃ嘉｢ﾃ [ﾃ⑦ﾃｬﾂｫﾃ窶ｺﾃｧﾃｻﾃ窶ｺﾃｩwﾃｭﾃ凝邃｢ﾃ竕･ﾃﾃ催ﾆ津ﾂ｢ﾃ窶ｹﾃﾏ\ﾃﾃ津③" & return after rtend ifreturn rtend dataCheckon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_67646.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on userStartScriptput nextSEAdate(0) into char 10 to 15 of line 19 of bg fld "userMacro"end userStartScripton userEndScriptput nextSEAdate(1) into char 3 to 8 of line 19 of bg fld "userMacro"end userEndScript</script>
</card>
card_58567.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSget item 1 of MtScanList(cd fld id 1 of cd id 53293,cd fld id 2 of cd id 53293,,true)if it <> empty then select line it of cd fld id 1 of cd id 53293pass mouseLeaveend mouseLeaveon mouseUpglobal cNMeditMarkSetdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meexit mouseUpend ifset the cursor to watchput the selectedText of me into setNameif setName is empty then exit mouseUpput word 2 of the selectedLine of me into lnif the optionKey is down thenanswer quote & setName & quote &"ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "Cancel" or "OK"if it is "OK" thenlock screenput offset("/*" & setName & "/*",cd fld id 7) into spput offset("*/" & setName & "*/",cd fld id 7) into epif sp <> 0 and ep <> 0 thenadd (the number of chars of setName) + 4 to epdelete char sp to ep of cd fld id 7end ifif cd fld id 2 is setName thenput empty into cd fld id 2put empty into cd fld id 3put false into cNMeditMarkSetend ifdelete the clickLineend ifselect line 0 of meelseif setName <> "-" thenlock screenset the cursor to watchif setName <> cd fld id 2 thenif cNMeditMarkSet then saveData cd fld id 2,cd fld id 3put setName into cd fld id 2put loadData(setName) into cd fld id 3select line 0 of cd fld id 3end ifelseselect line 0 of meend ifend ifend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>219</left>
<top>48</top>
<right>384</right>
<bottom>63</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseUpglobal cNMeditMarkSetif me is empty then exit mouseUpask "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃｱﾂｺﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥③" with meif it is empty or the result is "Cancel" or it is me or it is "-" then exit mouseUpput omitText (it,31) into newNameget MtScanList(cd fld id 1,newName,,true)if it <> empty thenbeepanswer "ﾃｬﾃ佚竏づｱﾂｺﾃｫOﾃﾃε厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥③"send "mouseUp" to meexit to HyperCardend ifput cd fld id 2 into setNameput offset("/*" & setName & "/*",cd fld id 7) into spput offset("*/" & setName & "*/",cd fld id 7) into epif sp <> 0 and ep <> 0 thenadd (the number of chars of setName) + 4 to epdelete char sp to ep of cd fld id 7end ifsaveData newName,cd fld id 3get MtScanList(cd fld id 1,setName,,true)if it <> empty thenput newName into line (item 1 of it) of cd fld id 1elseput newName & return after cd fld id 1end ifput newName into cd fld id 2put false into cNMeditMarkSetend mouseUp</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>219</left>
<top>72</top>
<right>384</right>
<bottom>266</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <true /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSpass mouseLeaveend mouseLeaveon mouseUpglobal cNMeditMarkSetdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meput true into cNMeditMarkSetexit mouseUpend ifget the selectedText of meif it is empty then exit mouseUpput word 2 of the selectedLine of me into lnif the optionKey is down then-- delete char 1 to 2 of it-- answer quote & item 1 of it & quote &"ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "Cancel" or "OK"-- if it is "Cancel" then exit mouseUpdelete the clickLineelseif char 1 of it is "□" then put " " into char 1 of itelse put "□" into char 1 of itput it into the clickLineselect line 0 of meend ifput true into cNMeditMarkSetend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>123</left>
<top>276</top>
<right>190</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｪVﾃ｣Kﾃ瓜ﾃ叡ﾃ曳</name>
<script>on mouseUp oldNameglobal cNMeditMarkSetput (the optionKey is up) into opask "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿" & quote & "-" & quote && "ﾃ竕暗｣ﾃ甘ｪﾃｿﾃﾃ凝ｪﾂｸﾃ③ﾃ⒀" with oldNameif it is empty or the result is "Cancel" then exit mouseUpif it is "-" thenput "-" & return after cd fld id 1exit mouseUpend ifput omitText (it,31) into newNameget MtScanList(cd fld id 1,newName,,true)if it <> empty thenbeepanswer "ﾃｬﾃ佚竏づｱﾂｺﾃｫOﾃﾃε厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥③"send "mouseUp newName" to meexit mouseUpend ifif cNMeditMarkSet then saveData cd fld id 2,cd fld id 3put newName & return after cd fld id 1put newName into cd fld id 2put empty into cd fld id 3if op then send "mouseUp" to cd btn id 6end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>311</left>
<top>276</top>
<right>366</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬo ﾃｲ^</name>
<script>on mouseUpglobal ListSelectExit,cNMeditMarkSetif cd fld id 2 is empty thensend "mouseUp" to cd btn id 5exit mouseUpend ifput entrySchedule("3") into addListget ListSelect ("3",addList,"ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃ窶ｦﾃｬoﾃｲ^ﾃ竏妥ﾃ暗雨ﾃ [ﾃ栄ﾃ⑴ﾃ閲ﾃ運ﾃ嘉ｬﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｬo ﾃｲ^","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into addListput cd fld id 3 into cardListrepeat with r = 1 to the number of lines of addListset the cursor to busyget line r of addListif not (first word of it is "/*" and last word of it is "*/") and it <> empty thenif it is not in cardList thenput "□ " & it & return after cardListend ifend ifend repeatput cardList into cd fld id 3put true into cNMeditMarkSetend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>294</top>
<right>29</right>
<bottom>306</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the optionKey is down thenget the lockText of cd fld id 1set the lockText of cd fld id 1 to not(it)set the lockText of cd fld id 2 to not(it)set the lockText of cd fld id 3 to not(it)elseset the visible of cd fld id 7 to not(the visible of cd fld id 7)end ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>242</left>
<top>276</top>
<right>289</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｯﾂｰ ﾃｪﾂｪ</name>
<script>on mouseUpif cd fld id 2 <> empty then reName cd fld id 2end mouseUpon reName oldNameglobal cNMeditMarkSetask "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃｱﾂｺﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾂｪﾃ⒀" with oldNameif it is empty or the result is "Cancel" then exit reNameput omitText (it,31) into newNameget MtScanList(cd fld id 1,newName,,true)if it <> empty thenbeepanswer "ﾃｬﾃ佚竏づｱﾂｺﾃｫOﾃﾃε厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃ邃｢ﾃ窶 ﾃﾃ凝窶ｹﾃ竏妥③"send "reName newName" to meexit reNameend iflock screenif cNMeditMarkSet then saveData cd fld id 2,cd fld id 3put newName & return after cd fld id 1put newName into cd fld id 2put true into cNMeditMarkSetselect line (the number of lines of cd fld id 1) of cd fld id 1end reName</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>47</left>
<top>276</top>
<right>94</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧﾃ ﾃｨﾃｺ</name>
<script>on mouseUpglobal ListSelectExitset the cursor to watchput cd fld id 1 into marksetListput cd fld id 7 into setCdListif marksetList is empty then exit mouseUpget ListSelect ("3#",marksetList,"ﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" & return & "ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｧﾃ ﾃｨﾃｺ","NoDoubleClick","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into delListlock screenrepeat with r = the number of lines of delList down to 1put line r of delList into nput line n of marksetList into setNameput offset("/*" & setName & "/*",setCdList) into spput offset("*/" & setName & "*/",setCdList) into epif sp <> 0 and ep <> 0 thenadd (the number of chars of setName) + 4 to epdelete char sp to ep of setCdListend ifif cd fld id 2 is setName thenput empty into cd fld id 2put empty into cd fld id 3put false into cNMeditMarkSetend ifdelete line n of marksetListend repeatput marksetList into cd fld id 1put setCdList into cd fld id 7end mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>49</top>
<right>208</right>
<bottom>67</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ嘉 ﾃ泳ﾃ嘉姪 [</name>
<script></script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>29</left>
<top>248</top>
<right>208</right>
<bottom>266</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ嘉 ﾃ泳ﾃ嘉姪 [</name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>27</left>
<top>47</top>
<right>210</right>
<bottom>266</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>160</left>
<top>318</top>
<right>274</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀</name>
<script>on mouseUpvisual effect dissolve very fastgo to cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" of bg "ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ"end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text>ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳</text>
</content>
<name>ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳</name>
<script>on openCardglobal cNMeditMarkSetput false into cNMeditMarkSetget item 1 of MtScanList(cd fld id 1,cd fld id 2,,true)if it <> empty then select line it of cd fld id 1lock screenunlock screenpass openCardend openCardon closeCardglobal cNMeditMarkSetif cNMeditMarkSet thensaveData cd fld id 2 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳",cd fld id 3 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"end ifset the visible of cd fld id 7 to falsepass closeCardend closeCard----- Control Keys Handlers -----on controlKey whichKey-- set cursor to watchif whichKey = 1 then -- AsendBtn "cd btn id 6"else if whichKey = 3 then -- CsendBtn "cd btn id 9"else if whichKey = 5 then -- EsendBtn "cd btn id 10"else if whichKey = 14 then -- NsendBtn "cd btn id 5"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 1put empty into cd fld id 2put empty into cd fld id 3put empty into cd fld id 7set the hilite of cd btn id 11 to falseset the hilite of cd btn id 12 to trueend clearDataon saveData setName,listglobal cNMeditMarkSetif setName <> empty thenput offset("/*" & setName & "/*",cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳") into spput offset("*/" & setName & "*/",cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳") - 1 into epif sp is 0 or ep is 0 thenput "/*" & setName & "/*" & return & list & "*/" & setName & "*/" & return after cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"elseput "/*" & setName & "/*" & return & list into char sp to ep of cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"end ifend ifput false into cNMeditMarkSetend saveDatafunction loadData setNameif setName <> empty thenput offset("/*" & setName & "/*",cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳") into spput offset("*/" & setName & "*/",cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳") - 1 into epif sp is 0 or ep is 0 thenreturn emptyelseput char sp to ep of cd fld id 7 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" into listdelete line 1 of listreturn listend ifelsereturn emptyend ifend loadDataon markSet setName,shglobal cNMeditMarkSetif cNMeditMarkSet then saveData cd fld id 2 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳",cd fld id 3 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"put loadData(setName) into cdListmarkSetCheck setName,cdList,shend markSeton markSetCheck setName,cdList,shif cdList <> empty thenput "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ"put empty into targetListrepeat with l = 1 to the number of lines of cdListset the cursor to busy-- ﾃ雨ﾃ [ﾃ栄ﾃ邃｢ﾃ窶 ﾃﾃ暗ﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑get line l of cdListif the number of items of it > 2 thenif there is not a cd id (last item of it) thenput " " into char 1 of line l of cdListend ifelseput item 1 of it into cdNamedelete char 1 to 2 of cdNameif there is not a cd cdName of bg id (last item of it) thenput " " into char 1 of line l of cdListend ifend ifget line l of cdListif char 1 of it is "□" thendelete char 1 to 2 of itput it & return after targetListend ifend repeatif targetList <> empty then markScheduleCard targetList,shsend "saveData setName,cdList" to cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"if cd fld id 2 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" is setName thenput cdList into cd fld id 3 of cd "ﾃ厭ﾃ [ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"end ifend ifhide msgend markSetCheckon scrFldsetScrollFld "cd fld id 1"end scrFld</script>
</card>
card_11494.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseDownglobal dragSput word 2 of the clickLine into dragSend mouseDownon mouseStillDowndragCursorend mouseStillDownon mouseLeaveglobal dragSput empty into dragSget line 2 of cd fld id 67 of cd id 11494if it <> empty then select line it of cd fld id 62 of cd id 11494lock screenunlock screenpass mouseLeaveend mouseLeaveon mouseUpdragListget the resultif item 1 of it <> item 2 of it thenunlock screenselect line 0 of meexit mouseUpend ifset the cursor to watchwait 10if the mouseClick thenget the value of the clickLinedelete char 1 to 2 of itgo to cd (item 1 of it) of bg id (item 2 of it)elseclicklist word 2 of the clickLineend ifend mouseUpon mouseWithinif the rect of cd fld id 67 is "219,47,384,266" thenput the scroll of cd fld id 62 + 24 into clset the scroll of cd fld id 67 to clend ifpass mouseWithinend mouseWithinon clicklist ln,shglobal cNMeditScheduleget line ln of cd fld id 62if it is empty then exit clicklistif the shiftKey is down or sh is true thenif char 1 of it <> "-" thenif char 1 of it is "□" then put " " into char 1 of itelse put "□" into char 1 of itput it into line ln of cd fld id 62end ifelse if the optionKey is down thendelete char 1 to 2 of itanswer quote & item 1 of it & quote &"ﾃï｣ｿﾃｧﾃ古ｨﾃｺﾃﾂｵﾃ窶ｹﾃ竏妥③" with "Cancel" or "OK"if it is "OK" thenlock screenif cNMeditSchedule then saveData line 2 of cd fld id 67put return into line 1 to 2 of cd fld id 67btnResetdelete line ln of cd fld id 62delete line (ln + 2) of cd fld id 67select line 0 of cd fld id 62end ifelseif char 1 of it <> "-" thenlock screendelete char 1 to 2 of itif ln <> line 2 of cd fld id 67 thenif cNMeditSchedule then saveData line 2 of cd fld id 67put item 1 of it & return & ln into line 1 to 2 of cd fld id 67loadData lnchangeTitleend ifselect line ln of cd fld id 62elseselect line 0 of cd fld id 62end ifend ifend clickliston dragListglobal dragSif dragS <> empty thenput word 2 of the selectedLine of the target into dragEif dragE <> dragS thenput me into list1put cd fld id 67 into list2lock screenput line dragS of list1 into d1put line (dragS + 2) of list2 into d2if d1 <> empty thendelete line dragS of list1delete line (dragS + 2) of list2put d1 & return before line dragE of list1put d2 & return before line (dragE + 2) of list2put line 2 of list2 into sif s <> empty thenif dragS > s and dragE <= s then add 1 to line 2 of list2if dragS < s and dragE >= s then subtract 1 from line 2 of list2if dragS = s then put dragE into line 2 of list2end ifput list1 into meput list2 into cd fld id 67end ifget dragS & "," & dragEput empty into dragSreturn itend ifput empty into dragSend ifend dragList</script>
</part>
<part>
<id>70</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>123</left>
<top>276</top>
<right>190</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｬo ﾃｲ^</name>
<script>on mouseUpif the optionKey is down thenput min (13,the number of lines of cd fld id 62) into lput l + round((the scroll of cd fld id 62) / 12) into clput "-------------------------" & return before line cl of cd fld id 62put return before line (cl + 2) of cd fld id 67elseglobal ListSelectExitput entrySchedule("62") into addListget ListSelect ("3",addList,"ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ窶ｦﾃｬoﾃｲ^ﾃ竏妥ﾃ暗雨ﾃ [ﾃ栄ﾃ⑴ﾃ閲ﾃ運ﾃ嘉ｬﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｬo ﾃｲ^","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into addListput cd fld id 62 into cardListrepeat with r = 1 to the number of lines of addListset the cursor to busyget line r of addListif not (first word of it is "/*" and last word of it is "*/") and it <> empty thenif it is not in cardList thenput "□ " & it & return after cardListend ifend ifend repeatput cardList into cd fld id 62end ifend mouseUp</script>
</part>
<part>
<id>71</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>47</left>
<top>276</top>
<right>94</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃｧﾃ ﾃｨﾃｺ</name>
<script>on mouseUpglobal ListSelectExit,cNMeditScheduleset the cursor to watchif cNMeditSchedule then saveData line 2 of cd fld id 67put cd fld id 62 into cardListput cd fld id 67 into btnsettingif cardList is empty then exit mouseUpput empty into srepeat with r = 1 to the number of lines of cardListget line r of cardListif char 1 of it <> "□" and char 1 of it <> "-" then put r & "," after send repeatdelete last char of sget "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃﾂｩﾃﾃﾃｧﾃ古ｨﾃｺﾃ竏妥ﾃ暗雨ﾃ [ﾃ栄ﾃ⑴ﾃ閲ﾃ運ﾃ嘉ｬﾃï｣ｿﾃｫIﾃｫï｣ｿﾃﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀"get ListSelect ("3#",cardList,"s=" & s,it,"ﾃｧﾃ ﾃｨﾃｺ","NoDoubleClick","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into delListrepeat with r = the number of lines of delList down to 1get line r of delListdelete line it of cardListdelete line (it + 2) of btnsettingend repeatlock screenput return into line 1 to 2 of btnsettingbtnResetput cardList into cd fld id 62put btnsetting into cd fld id 67select line 0 of cd fld id 62end mouseUp</script>
<script>on mouseUpset the hilite of cd btn id 91 to falseset the hilite of cd btn id 90 to not (the hilite of cd btn id 90)changeBtnend mouseUp</script>
</part>
<part>
<id>91</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>319</left>
<top>244</top>
<right>372</right>
<bottom>262</bottom>
</rect>
<style>radiobutton</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ｣ﾃ凖ｪﾃｮﾃ･ﾃｩ</name>
<script>on mouseUpset the hilite of cd btn id 90 to falseset the hilite of cd btn id 91 to not (the hilite of cd btn id 91)changeBtnend mouseUp</script>
</part>
<part>
<id>93</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>242</left>
<top>276</top>
<right>289</right>
<bottom>295</bottom>
</rect>
<style>standard</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ﾃ､m ﾃｮF</name>
<script>on mouseUpask "ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ竏妥ﾃ暗ｬﾋ凖ｯtﾃï｣ｿﾃｬﾂｸﾃｳﾃ陛ﾂｵﾃﾆ津竕 ﾃﾃｦﾃ竕･ﾃﾂ｢ﾃ③" with the dateif it is empty or it is not a date then exit mouseUpput it into checkDatescheduleCheck checkDate,trueend mouseUp</script>
</part>
<part>
<id>95</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>294</top>
<right>29</right>
<bottom>306</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUplock screenif the rect of cd fld id 67 is "219,48,384,63" thenset the rect of cd fld id 67 to "219,48,384,266"set the style of cd fld id 67 to "scrolling"set the textAlign of cd fld id 67 to "left"get falseelseset the rect of cd fld id 67 to "219,48,384,63"set the style of cd fld id 67 to "rectangle"set the textAlign of cd fld id 67 to "center"get trueend ifset the lockText of cd fld id 62 to itset the lockText of cd fld id 67 to itset the visible of cd fld id 98 to itend mouseUp</script>
</part>
<part>
<id>98</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>27</left>
<top>48</top>
<right>41</right>
<bottom>266</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script>on mouseUpput word 2 of the clickLine into lput l + round((the scroll of cd fld id 62) / 12) into clsend "clicklist cl,true" to cd fld id 62end mouseUp</script>
</part>
<part>
<id>67</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>219</left>
<top>48</top>
<right>384</right>
<bottom>63</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script>on mouseWithinif the style of cd fld id 67 is "scrolling" thenput (the scroll of cd fld id 67) - 24 into clset the scroll of cd fld id 62 to clend ifend mouseWithinon mouseUpput line 1 of me into oldNameif oldName is empty then exit mouseUpask "ﾃ嘉､ﾃ厩ﾃ曳ﾃｨ窶榲ﾃε雨ﾃ [ﾃ栄ﾃｱﾂｺﾃï｣ｿﾃｯﾅ禿ｧXﾃﾂｵﾃ窶ｹﾃ竏妥③" with oldNameif it is empty or the result is "Cancel" or it is oldName then exit mouseUpput omitText (it,31) into newNameput newName into line 1 of meput line 2 of me into nput char 1 to 2 of line n of cd fld id 62 & newName into item 1 of line n of cd fld id 62end mouseUp</script>
<script>on openCardglobal cNMeditScheduleput false into cNMeditScheduleget line 2 of cd fld id 67if it <> empty then select line it of cd fld id 62lock screenunlock screenpass openCardend openCardon closeCardglobal cNMeditScheduleif cNMeditSchedule then saveData line 2 of cd fld id 67if the lockText of cd fld id 62 is false then send "mouseUp" to cd btn id 95pass closeCardend closeCardon controlKey whichKeyif whichKey = 1 then -- AsendBtn "cd btn id 70"else if whichKey = 3 then -- CsendBtn "cd btn id 93"else if whichKey = 5 then -- EsendBtn "cd btn id 71"elsepass controlKeyend ifend controlKeyon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput empty into cd fld id 62put empty into cd fld id 67btnResetend clearData-- ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑 --on scheduleCheck checkDate,op,shif the short name of this cd is "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣" thenglobal cNMeditScheduleif cNMeditSchedule is "true" then saveData line 2 of cd fld id 67end ifput "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃ"put cd fld id 62 of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣" into cdListput cd fld id 67 of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣" into btnListdelete line 1 to 2 of btnListput empty into targetListif checkDate is empty then put the date into checkDateconvert checkDate to dateitemsrepeat with l = 1 to the number of lines of cdListset the cursor to busy-- ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣ﾃｫﾅ津ｨ竄ｬﾃﾂｩget line l of cdListif char 1 of it is "-" then next repeatif the number of items of it > 2 thenif there is not a cd id (last item of it) thenput " " into char 1 of line l of cd fld id 62 of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣"next repeatend ifelseput item 1 of it into cdNamedelete char 1 to 2 of cdNameif there is not a cd cdName of bg id (last item of it) thenput " " into char 1 of line l of cd fld id 62 of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣"next repeatend ifend ifif char 1 of it <> "□" then next repeatdelete char 1 to 2 of itput line l of btnList into checkLineif checkLine is empty then next repeat-- ﾃ､ﾃ氾ｪﾃｮﾃ･ﾃｩ/ﾃ｣ﾃ凖ｪﾃｮﾃ･ﾃｩﾃ荏ﾃ宇ﾃ叡ﾃ丑put first item of checkLine into xif x >= 90 thenif 91 - ((item 2 of checkDate) mod 2) <> x then next repeatend if-- ﾃｳjﾃｬﾋ/ﾃｬﾋ凖ｯtﾃ荏ﾃ宇ﾃ叡ﾃ丑if last item of checkLine > 31 then-- ﾃｳjﾃｬﾋput weekNumber(checkDate) into weekput btnNumber(week) into btnNo-- ﾃｧﾂｰﾃｬﾋ凖ﾃεｳjﾃｬﾋ凖窶ｦﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ邃｢ﾃｯtﾃﾂ｢ﾃﾆ津ﾂ｢ﾃﾃ暗ﾂｩif (item 2 of week + 31) is in checkLine thenput true into tgif MtScanList (checkLine,btnNo,,true) is empty then-- ﾃｱﾃ ﾃｨTﾃﾂｩﾃﾂｫﾃﾂｧﾃﾂｩﾃ荏ﾃ宇ﾃ叡ﾃ丑repeat with r = 1 to 4if MtScanList (checkLine,btnNumber(r &","& item 2 of week),,true) <> empty thenput false into tgend ifend repeatend ifif tg then put it & return after targetListend ifelse-- ﾃｬﾋ凖ｯtif MtScanList (checkLine,item 3 of checkDate,,true) <> empty thenput it & return after targetListend ifend ifend repeatif op is true thenglobal ListSelectExitif targetList is empty then put "ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" into targetListconvert checkDate to short dateif targetList is "ﾃ窶 ﾃﾃ凝窶ｹﾃﾏ\ﾃﾃ津③" thenput "ﾃ､m ﾃｮF" into okBtnput empty into cancelBtnelseput "ﾃｧﾃ ﾃｪﾂｨ" into okBtnput "ﾃ､m ﾃｮF" into cancelBtnend ifget ListSelect("3",targetList,checkDate && "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪 [ﾃ嘉｣",okBtn,cancelBtn,"100,40,410,280",return)if ListSelectExit is "ﾃｧﾃ ﾃｪﾂｨ" and it <> empty thenmarkScheduleCard it,shend ifelseif targetList <> empty then markScheduleCard targetList,shend ifhide msgend scheduleCheckfunction btnNumber nreturn (item 1 of n - 1) * 7 + item 2 of nend btnNumber----------------------function weekNumber checkDate-- ﾃｫﾃ甘｢ﾎｩﾃｨTﾃ④ﾃ｢ﾎｩﾃｳjﾃｬﾋ凖ﾂｩput item 3 of checkDate into dayput item 7 of checkDate into weekput (day div 7) into nif (day mod 7) <> 0 then add 1 to nreturn n &","& weekend weekNumberon changeBtnglobal cNMeditScheduleput true into cNMeditScheduleend changeBtnon saveData nglobal cNMeditScheduleif n <> empty thenput empty into datarepeat with r = 1 to 38set the cursor to busyif the hilite of cd btn id r then put r into item (the number of items of data + 1) of dataend repeatif the hilite of cd btn id 90 then put "90," before dataif the hilite of cd btn id 91 then put "91," before dataput data into line (n + 2) of cd fld id 67end ifput false into cNMeditScheduleend saveDataon loadData nput line (n + 2) of cd fld id 67 into dataset the hilite of cd btn id 90 to falseset the hilite of cd btn id 91 to falseif item 1 of data >= 90 thenset the hilite of cd btn id (item 1 of data) to truedelete item 1 of dataend ifrepeat with r = 1 to 38set the cursor to busyif r = item 1 of data thenset the hilite of cd btn id r to truedelete item 1 of dataelseset the hilite of cd btn id r to falseend ifend repeatend loadDataon btnResetrepeat with r = 1 to 38set the cursor to busyset the hilite of cd btn id r to falseend repeatset the hilite of cd btn id 90 to falseset the hilite of cd btn id 91 to falseend btnReset-- ﾃｳjﾃｬﾋ/ﾃｬﾋ凖ｯtﾃｯ¥ﾃｩﾂｶﾃｪﾃｿﾃﾃ凝ｫﾃｷﾃﾂｶon changeTitlelock screenput false into vrepeat with r = 32 to 38if the hilite of cd btn id r thenput true into vexit repeatend ifend repeatif the visible of cd fld id 81 is v thenset cursor to watchrepeat with r = 76 to 80set the visible of cd fld id r to vend repeatrepeat with r = 29 to 31set the visible of cd btn id r to not (v)end repeatset the visible of cd fld id 81 to not (v)set the visible of cd btn id 100 to not (v)end ifend changeTitleon scrFldsetScrollFld "cd fld id 62"end scrFld</script>
</card>
card_5187.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset cursor to watchlock screenif the optionKey is down thenset the locktext of cd fld id 2 to falseelseglobal CNMbmList,CNMbmNoput "-------- ﾃ疫ﾃ叡ﾃ丑ﾃ厭ﾃ [ﾃ丑 --------" into k1put "----------------------------" into k2put me into reportput word 2 of the clickLine into clrepeat with r = cl down to 1get line r of reportif there is a file it thenselect line r of meunlock screenopen it with EditorPath()exit repeatelse if "/*" is in it and "*/" is in it thenselect line r of meunlock screenput char 4 to offset(" */",it)-1 of it into cdNamevisual effect zoom opengo to card id (last word of it)exit repeatelse if k1 is in it thenselect line r of meunlock screenanswer "ﾃ疫ﾃ叡ﾃ丑ﾃ厭ﾃ [ﾃ丑ﾃï｣ｿﾃｬﾂｸﾃﾃ催ｫﾃｷﾃﾂｶﾃ窶ｹﾃ竏妥ﾂｩﾃ⑨" with "Add" or "OK" or "Cancel"if it <> "Cancel" thenset the cursor to watchif it is "OK" then put empty into CNMbmListrepeat with r2 = r to the number of lines of reportget line r2 of reportif item 2 of it is a integer and there is a cd id (item 2 of it) then bookmark item 2 of it,trueif it is k2 then exit repeatend repeatput 1 into CNMbmNosend "openCard" to this cdif CNMbmList <> empty then put CNMbmNo into item 3 of line 1 of CNMbmListput CNMbmList into cd fld "BookMarkList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"end ifexit repeatend ifend repeatselect line 0 of meend ifend mouseUpon exitFieldset the locktext of me to truepass exitFieldend exitFieldon closeFieldset the locktext of me to truepass closeFieldend closeFieldon enterInFieldset the locktext of me to truepass enterInFieldend enterInField</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> ﾃ嘉･ﾃ榎ﾃ [ﾃ曳 </text>
</content>
<name> ﾃ嘉･ﾃ榎ﾃ [ﾃ曳 </name>
<script>on closeCardset the locktext of cd fld id 2 to trueselect line 0 of cd fld id 2pass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ嘉･ﾃ榎ﾃ [ﾃ曳ﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into bg fld "createDate"putReport empty,trueput 0 into bg fld "errorNumber"end clearData--on scrFldsetScrollFld "cd fld id 2"end scrFld</script>
</card>
card_21348.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpset the locktext of me to falseclick at the mouseLocend mouseUpon exitFieldset the locktext of me to truepass exitFieldend exitFieldon closeFieldset the locktext of me to truepass closeFieldend closeFieldon enterInFieldset the locktext of me to truepass enterInFieldend enterInField</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>17</left>
<top>37</top>
<right>393</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>ASLFont+</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>addin_fileName</name>
<script>on mouseDownwait 20if the optionKey is down or the mouse is "up" thensend "mouseUp true" to meexit mouseDownend ifput empty into listput cd fld id 6 into dataListif dataList is empty then exit mouseDownput round(the scroll of cd fld id 6 / 14) + 1 into lput MtScanList(dataList,"*: /* CNIF_MacroMaker macro") into pput the number of lines of p into lnrepeat with r = 1 to lnput item 1 of line r of p into sget line s of dataListput offset(" */",it) into xif x is 0 then next repeatput char 7 to (x - 1) of it & return after listif s <= l then put r into dend repeatif list is empty then exit mouseDownget item 1 of the loc of mesubtract ((the number of chars of line 1 of list) * 4) from itput "," & the top of me after itput "-;ﾃ厭ﾃ丑ﾃ嘉ｧﾃｮ窶佚ｧﾃ愿ｧXﾃｪV;ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｬﾋ凖ｩﾃｻﾃｧXﾃｪV" after listUxPop list,"N",d,itif line 1 of it is empty then exit mouseDownif "ﾃ厭ﾃ丑ﾃ嘉ｧ" is in line 1 of it thenif line 1 of it is "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｮ窶佚ｧﾃ愿ｧXﾃｪV" then ReNumberelse reDateTimeelseselect before line (item 1 of line (item 3 of line 2 of it) of p) of cd fld id 6end ifselect emptyend mouseDownon mouseUp opif the optionKey is down or op is true thenglobal ListSelectExitset the cursor to watchput empty into listput cd fld id 6 into dataListif dataList is empty then exit mouseUpput round(the scroll of cd fld id 6 / 14) + 1 into lput MtScanList(dataList,"m: ") into pput the number of lines of p into lnrepeat with r = 1 to lnput item 1 of line r of p into sget line s of dataListif char 1 to 3 of it is "m: " then put char 4 to (the number of chars of it) of it & return after listif s <= l then put r into dend repeatif list is empty then exit mouseUpget ListSelect ("1#",list,"s=" & d,"ﾃｫIﾃｫï｣ｿﾃｯﾃｮﾃｯ邃｢ﾃï｣ｿﾃｯ¥ﾃｩﾂｶﾃﾂｵﾃ窶ｹﾃ竏妥③","100,40,410,280",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpset the cursor to watchselect before line (item 1 of line it of p) of cd fld id 6select emptyend ifend mouseUp</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>373</left>
<top>39</top>
<right>385</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23110</icon>
<textAlign>center</textAlign>
<font>Chiyoda</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseStillDownif the mouseLoc is within (the rect of me) thenset the icon of me to 23100set the cursor to arrowelseset the icon of me to 23110end ifend mouseStillDownon mouseUplock screenset the icon of me to 23110set the cursor to watchif the rect of cd fld id 6 is "17,52,393,306" thenset the rect of cd fld id 6 to "8,43,505,315"set the rect of cd fld id 13 to "8,28,505,44"set the loc of cd btn id 14 to "491,36"elseset the rect of cd fld id 6 to "17,52,393,306"set the rect of cd fld id 13 to "17,37,393,53"set the loc of cd btn id 14 to "379,45"end ifunlock screenend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>2</id>
<text> ﾃ厭ﾃ丑ﾃ嘉ｧ </text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text>2</text>
</content>
<name> ﾃ厭ﾃ丑ﾃ嘉ｧ </name>
<script>on controlKey whichKeyif whichKey = 10 then -- jsend "mouseUp true" to cd fld id 13else if whichKey = 47 then -- /send "mouseUp" to cd btn id 14elsepass controlKeyend ifend controlKeyon closeCardset the lockText of cd fld id 6 to trueif the rect of cd fld id 6 <> "17,52,393,306" thensend "mouseUp" to cd btn id 14end ifpass closeCardend closeCardon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ液ﾃ隠ﾃ [ﾃ嘉｣ﾃ栄ﾃﾃε厭ﾃ丑ﾃ嘉ｧﾃï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃﾂｵﾃ窶ｹﾃ竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit clearDataend ifput empty into cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put empty into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "-- put 0 into bg fld "errorNumber"set the lockText of cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ " to trueend clearDataon reNumberput cd fld id 6 into macroif macro is empty then exit reNumberput MtScanList(macro,"*: /* CNIF_MacroMaker macro") into pput the number of lines of p into lnrepeat with r = 1 to lnset cursor to busyput item 1 of line r of p into sput addzero(r,2) into char 32 to 33 of line s of macroend repeatput macro into cd fld id 6end reNumberon reDateTimeput cd fld id 6 into macroif macro is empty then exit reDateTimeput the date && the long time into dateTimeput MtScanList(macro,"*: /* CNIF_MacroMaker macro") into pput the number of lines of p into lnrepeat with r = ln down to 1set cursor to busyput item 1 of line r of p into sif char 1 to 5 of line (s + 1) of macro is "*: /*" thenput "*: /*" && dateTime && "*/" into line (s + 1) of macroelseput return & "*: /*" && dateTime && "*/" after line s of macroend ifend repeatput macro into cd fld id 6end reDateTime----------on scrFldsetScrollFld "cd fld id 6"end scrFld</script>
